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IR AFICOS DA RQ 
N© SPECTRUM C2) 



CARACTERES GRAFICOS 



DENTRO DO PROGRAMA 



A FUNCAO CHR$ 



LINHAS LONGAS 



A FUNCAO TO 



Em artigo anterior, explicamos o que 
sao OS caracteres graficos e como 
entra-los diretamente pelo teclado. 
Trataremos aqui de sua utiliza^ao 
dentro de programas. 



Para especificar caracteres graficos 
dentro de um programa, sem precisar 
digita-los diretamente (veja artigo publi- 
cado a p^gina 640), emprega-se a utilis- 
sima fun<;ao CHRS. Para imprirair na 
tela um quadrado vermelho, podemos 
usar, por exemplo: 

PRINT INK 2, CHRS (143} 

O programa seguinte mostra a tabe- 
la de correspondencia entre codigos nu- 
merscos e graficos na tela dos micros da 
linhs Spectrum: 

10 CLS 

20 FOR i-128 TO 143 STEP 5 

30 FOR i-j TO j+4 

40 PRINT i;" "iCHRS[i) ; " " ; 

50 NEXT i 

60 PRINT 

70 NEXT J 

Os caracteres sao impresses ordena- 
damente em fileiras, na tela, por meio 
dos dois ia90S que come^am nas linhas 
20 e 30 do programa. O primeiro la?o 
varia J de 193 a 242 (a faixa de c6digos 
correspondente aos caracteres graficos), 
de 6 em 6, O lat^o seguinte percorre to- 
dos OS valores numericos existentes en- 
tre J e J + 5. 

O PRINT da linha 60 serve para en- 
eerrar uma fileira de seis c6digos e suas 
representatjoes graficas. Estas sao exibi- 
das pela linha 40. 



LINHAS iONGAS 



Se voce pretende empregar caracte- 
res graficos com certa freqtiencia em um 
programa, convem armazenar seus c6- 
digos em uma variavel alfanum^rica. 
Assim, ficara bem mais facil utiliza-los, 
e voce nao tera necessidade de consul- 
tar a todo momento a tabela de c6digos 
graficos, quando estiver desenvolvendo 
programa. 



Da mesma maneira, quando se pre- 
tende utilizar uma cadeiade caracteres 
grificos em v^os pontos de um progra- 
ma, e interessante armazen^-los em uma 
variavel alfanumerica. Como o Spec- 
trum nao tem a fun^ao STRINGS, que 
permite fazer isto com um linico coman- 
do, serd preciso escrever um pequeno la- 
(;o de acumulagao: 

10 CLS 

20 PRINT AT 19.0;"CoaiOO 

Grafico (128-143) : " 

2S INPUT c 

30 PRINT AT 19.0i "CoBprimento 

(1-29) : " 

40 INPUT n 

50 LET sS""" 

60 FOR i-1 TO n 

70 LET s$-bS+CHRS(c) 

80 NEXT i 

90 PRINT AT 10.1:aS 

9S PAUSE 100 

100 GOTO 10 

A cadeia alfanumerica S$ tem L co- 
digos, que sao exibidos na tela ao mes- 
mo tempo, quando se emprega o co- 
mando PRINT S$. Este truque sera 
muito util quando voce precisar usar 
com frequencia, no programa, linhas de 
separa^ao, moiduras etc. 



A FUNCAO TO 



A funfao TO tem grande utiljdade na 
construcao de graficos com si'mbolos de 
teclado, pois eta permite que se extraiam 
segmentos curtos de uma cadeia grafi- 
ca maior. 

Suponhamos que voce precise usar 
retas horizontals de diferentes tama- 
nhos, na composigao de uma tela gra- 
fica. Em vez de gerar varias cadeias 
graficas, usando a t^cnica do lago 
FOR... NEXT explicada anteriormente, 
voce poderS gerar uma unica cadeia, 
com comprimento maximo (uma cadeia 
C$, com 32 caracteres, por exemplo). 

Depois, para colocar em um ponto 
qualquer da tela do micro uma cadeia 
grafica de doze caracteres, bastara uti- 
lizar o PRINT AT combinado com 
C$(TO 12). A fungao TO, no caso, ser- 
ve para extrair os priraetros doze carac- 
teres da cadeia C$, simplificando mui- 
to processo. 




CARACTERES INVERTIDOS 

Em alguns tipos de computador, o 
conjunto de caracteres graficos — isto 
6, aqueles caracteres que podem ser ob- 
ttdos pressionando-se < SHIFT > <9> 
— abrange tamb^m os chamados ca- 
racteres invertidos. 

Estes nada mais sao do que uma re- 
presentacao "em negativo" da forma 
usual de exibicao na tela. As duas for- 
mas — "normal" e "invertida" — apare- 
cerao diferentemente conforme a mar- 
ca do computador. 

Nos micros originals da Sinclair (o 
ZX-81 e sen equlvalente norte-ameri- 
cano, o Timexl, por exemplo, a repre- 
sentapao normal de vi'deo comp6e-se 
de caracteres pretos sobre fundo cla- 
ro. O caractere invertido seria, portan- 
to, branco sobre fundo preto. Como o 
fundo normal de tela & branco, os ca- 
racteres invertidos aparecem como um 
retangulo preto, com o caractere im- 
presso em branco. J^ a cor clara do 
fundo dos caracteres em video normal 
fica igual ao fundo da tela. Esse tipode 
cepresentapao de video § caracteristi- 
co dos modelos nacionais da Microdtgi- 
tal (TK-82C, TK-e3 e TK-85). 

Alguns outros computadores nacio- 
nais, entfe eles o CP-200, da Prol6gi- 
ca, t§m tela com fundo preto, normal- 
mente, e exibem caracteres claros. 
Aqui, o caractere invertido, obtido com 
< SHIFT > <9>, 6 escuro sobre fundo 
claro. 

Existem, ainda, alguns modelos que 
permitem ao usuSrio mudar de video 
preto para branco, conforme sua con- 
veni^ncia, por meio de um interrupter 
colocado no console. 

Os caracteres invertidos tem diver- 
sas aplica^oes. Sao utilizados, particu- 
larmente, para realgar determinadosti- 
tulos, r(itulos ou mensagens numa te- 
la. Alguns deles — como ponto, dois 
pontos, asterisco, barra e a letra — po- 
dem ser incorporados como elementos 
graficos na composigao de um desenho. 
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UM JOGO Dl 




Entre no mLindo dos grandes riscos 
- e grandes lucros. Voce e dono de 
uma emprasa de minera^ao. Tera 
astucja e talento para tomar decisoes 
e coragem para levS-las a cabo? 



Neste jogo de estrategia empresarial, 
jogador desempenha o papel de dono 
de uma companhia de minera^ao. Seu 
dever e cuidar para que o empreendi- 
mento prospere ao maximo. Como du- 
rante o jogo muiias op^oes Ihe sao ofe- 
recidas, a sorte da empresa dependerd 
de sua capacidade de tomar decisoes. 

Jogos de estrategia, assim como de 
aventuras, sao geralmente escritos em 
BASIC, nao havendo necessidade de se 
recorrer a rotinas em codigo. Como eles 
tambem nao incluem longos textos e co- 
mentarios, sao compativeis com micros 
de pouca quantidade de memoria. Em- 
bora nosso jogo tenha sido enriquecido 
com rotinas grcificas que ilustram o pro- 
cesso de minerafao — o que aumentou 
o espaco de memoria utilizado — , o 
programa cabe nos micros de 16K. 

Apresentaremos o programa em duas 
partes, pois eie e bastante longo. Trata- 
remos aqui de sua parte central, mas aJ- 
gumas das rotinas essenciais para faze- 
io funcionar so serao abordadas no pr6- 
ximo artigo. 

Depois de digitar esta primeira se^ao, 
grave o programa e aguarde a publica- 
i;ao da parte que o completa. Em alguns 
computadores, se o programa for exe- 
cutado neste estigio, a teta sera preen- 
ciiida com diversas informafoes sobre o 
status do jogo, alem de uma scrie de op- 
foes. Contudo, surgira tambem uma 
mensagem de erro, uma vez que o pro- 
grama estd incompleto. 



OS OBJITIVOS DO JOGO 



Quando o jogo comega, o jogador 
tem um saldo a seu favor — a compa- 
nhia de mineracao e 2 milhoes em di- 
nheiro. Sua tarefa e investir estes recur- 
sos inteligentemente, na busca do pre- 
cioso metal. O objetivo do jogo e reu- 
nir a maior quantia de dinheiro possi- 
vei em trinta rodadas, O Jogo permite 
que uma pessoa jogue sozinha ou que 
duas joguem ao mesmo tempo. 

A cada lance, o jogador se ve diante 
de varias opc6es. Antes de comegar as 
escavav'oes, precisa encontrar um local 
promissor; para isso, deverd destinar 
certa quantia a contratacao de um ge6- 
iogo que Ihe forneca uma avaliapao pro- 



fissional. O jogador sera, entao, infor- 
mado sobre suas chances de encontrar 
ouro e da provavel profundidade e di- 
mensoes do veio. A responsabilidade de 
decidir se vaie a pena explorar detcrmi- 
nada mina e sua. 

Como trabalho de escavagao e ga- 
rimpagem envolve altas somas, podera 
ser conveniente investir na pesquisa e de- 
senvolvimento de equipamentos que re- 
duzam os custos da operafao. Ou tai- 
vez seja melhor cometjar logo as esca- 
vacoes — so o jogador pode decidir. Se 
ele inicia-las, graficos coloridos ilustra- 
r5o o progresso do trabalho. Caso nao 
encontre ouro, precisara resolver se va- 
le a pena coniinuar a prospec^ao ou se 
e melhor abandonar a mina e partir pa- 
ra outra. 

No decorrer do jogo, dois outros fa- 
tores intluem nos resultados. Uma vez 
encontrado o ouro, pode-se guarda-lo 
em cot're- forte ou vende-lo no mercado. 
^ razoavel guardar o metal, sc nao hou- 
ver necessidade imediata de dinheiro; 
pode ser vantajoso esperar por uma boa 
cota(;ao para vende-lo — a cotai;ao flu- 
tua durante o jogo. Contudo, armaze- 
nar euro e arriscado, pois h^ ladroes por 
toda parte e, quanto maior a quantida- 
de, maior a tentacao. 

A segunda parte do programa cuida- 
ra dos detalhes do funcionamento do jo- 
go. Agora, digile a primeira parte. 



5 BORDER 6; PAPER 6: INK 0: 

CL3 
10 PRINT AT 9,2i"QuantoB joaa 
doreB? (1 ou 2)"; LET aS- 
INKEYS; IF a$--* THEN GOTO 
LO 

20 IF a$<"l" OR «S>"2' THEN 
GOTO 10 

30 LET p-VAL a$: LET nop-p 
40 DIM aC2,6) : DIM cC2,5) : 
DIM ag(p,8): DIM r{2): LET er 
-10000 

50 LET r(l)-0; LET r(2)-0: 
LET a (1,1) =2000000: LET a (1,2 
J-2000000: LET a (2 , lJ-2000000 
: LET a (2, 2) -2000000: LET ad 
.3)-0: LET aC2,3)-0: LET ad, 
4)=100000: LET a (2 ,4) -100000 : 

LET a(1.5)-0: LET a(2,5)-0: 
LET a(1.6)-0: LET a(Z,6)-0: 




^. 
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II 



OBJETIVOS DO JOGO 



AO PROGRAMA 



UM OU DOIS JOGADORES 



A PRiMEIRA TELA 



OFERTA DE OP COES 



SALDOS E GUSTOS 



COMO PAR INFORMA COES 



A O JOGADOR 

ROTINA DOS LADRO ES DE OURO 
EFEITOS SONOROS 
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m 



INPUT "None 

"?-. LINE a5 



FOB 



■1 TO 



INK 0: 



PRINT 

70 FOB n-1 TO p: 

dp jogador ' ; (n) 

(n) : NEXT n 
ZOO FOB n-J TO 30 
nop 

202 BOBDER 7 : PAPER 
CLS 

210 PRINT PAPER 6;n- PRINT 
PAPER 1; INK 6; AT 0.4;" M I N 
A DEOURO- 
220 PRINT 'TAB 16;a3{l):: IF n 
op-2 THEN PRINT TAB 24;aS<2): 
230 PRINT '"SALDO TOTAL S" ; 
TAB ISjad.Dir IF nop-2 THEN 
PRINT TAB 24;a(Z.l) ; 
240 PRINT '-DINHEIHO S" : 
TAB 15ia(l,2);t IF nop-2 THEN 
PRINT TAB 24i3{2.2) ; 
250 PRINT "OURO ka'iTAB ISjaC 
1,3);: IF nop-2 THEN PRINT 
TAB 24 ; a ( 2 , 3 ) ; 

260 PRINT "CUSTO P/CAyARS" ; 
TAB 15ia(l,4)i;^ IF nop-2 THEN 
PRINT TAB 24; a (2,4) j 

No. DC MI HAS" ;TAB 
IF nop-2 THEN 



270 PRINT 
15:atl.S) ; 



PRINT TAB 24; a (2. 5] i 



280 PRINT 
15;a(l,6) 



■ "PROFUNDID. ■" 
: IF nop-2 THEN 



:TAB 



PRINT TAB 24; a (2,6) ; 



300 PRINT 



PAPER 4r IKK 0;"C 
otacao dcr ouro no nercado:*: 
PRINT "S";er;" por kg de ouro' 
400 PRINT ' PAPER 5;">-"jaS(») 
500 PRINT PAPER 2; INK 7j-l": 
: PRINT "-Peoquiua « deaenvolv 
i»ento" 

510 PRINT PAPER 2; INK 7;"2-i 
: PRINT "-Levanta»ento geologl 

CO" 

520 PRINT PAPER 2t INK 7;' 3"; 

: PRINT "-Cavar uaia 200 ■" 

530 PRINT PAPER 2; INK 7; "4"; 

: PRINT "-Vender ouro no Bcrca 

do- 

540 PRINT PAPER 2; INK 7;"5-; 

: PRINT "-Paaaa a vez" 

550 PRINT : PRINT FLASH 1; 

PAPER 1; IKK 6;"Faca sua opcao 

f» 

600 LET iS=INKETf$: IF iS = "" 

THEN GOTO 600 

610 IF lS<"l'' OR i$>'5" THEN 

GOTO 600 

620 G03UB VAL iS*1000 

700 IF a(»,2)<0 THEN GOTO 

7000 
710 LET er-er+INT tHND«1000)- 

200 
720 IF INT CRND*1600)-a{ii,3K0 
THEN G03UB 900 
740 LET a(iii,l)-a(»,2)+a{ii,3)* 
er 

750 PAPER 7: INK 0: BORDER 7: 
CLS 

790 NEXT ■ 
SOD NEXT n 

810 PAPER 5: BORDER 5: INK 0: 
CLS 

820 PRINT FLASH 1: INK 7; 
PAPER 2; AT 6,10;" FIM DO JOGO" 
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B30 PRINT 'p5;-Saldo total de 

"ia$(l): PBIMT TAB ll;-S":a(l. 

1) 

840 IF nop- 2 THEN PRINT 'TAB 

Sj-Saldo total de ";a3t2): 

PRINT TAB ll;-$";a<2.1J 

650 PRINT '' PAPER 2: INK 6', 

FLASH 1;TAB Ij'Qualquer tecla 

para racoaecar' 

860 IF INKEYSO'" THEN GOTO 

860 
870 IF INKEYS--' THEN GOTO 

970 
890 RUN 

900 PAPER 2: INK 6: BORDER 2: 

CLS 
905 LET jk-INT CHND*100)+50 : 
IF jk>a(B,3) THEN LET jk-a(B, 
3) 

910 PRINT PAPER 6i INK 1: 
FLASH l;AT 9,10;" R U B ' 
920 PRINT : PRINT INK 7i" 
Foraa roubados ';jki'kg 6e' : 
PRINT " ftcu ouro" : LET a(fli, 
3)-at»,3)-jk! LET a(»,X)-a(B,l 
)-(jk*er) 

930 FOR x-1 TO 35: SOUND ,05. 
40: SOUND .05.20: NEXT K 
940 BORDER 7: PAPER 7: INK 0: 
CLS : RETURN 



20 DIM ACl.S) ,C(1,4) 
90 SCREEN 1: COLOR 1,1 0.4: KEY OF 
F 

100 VPOKE BASE (6) ,4*16+4 :UPOKE 
BASE<6)+1, 6*16+6 

110 FOR 1-6 TO 7:VP0KE BASE (6)+ 
1. 15*16+6 :NEXT 

120 LOCATE 0,5: PRINT "Quantoa j 
ogadorea {1 ou 2] ?; 
130 AS-INKEY3:IF A3C"1" OR AS>" 
2* THEN 130 

140 P-VAL(AS) :NO-P:ER~10000:AC0 
,0)-2000000t:A(0.1)-A(0.0) :A<1, 
0J-A(O,0) :A{I.1>-A(0,0) :A(O.3)- 
100O00! :A(1.3}-AC0,3) 
ISO FOB N-1 TO P: PRINT: PRINT; PR 
IHT'No»e do jooador" iNj : LINE IN 
PUT AS(N-1):IF LEN (A5 (N-1] J >8 T 
H£N AS(N-1)-LEFTS(A${N-1) ,8) 
160 NEXT 

200 FOR N-0 TO 29: FOR M-O TO NO 
-I 

202 FOR I-O TO 767;UPOKE BASE {5 
} +1,0: NEXT: LOCATE 0.0 
204 FOR 1-0 TO 31: VPOKE BASE (5) 
+1.8: VPOKE BASE (5) +736+1. 8: NEXT 
206 FOR 1-0 TO 24: VPOKE BASE (5) 
+I*a2,8:VPOKE BASE{5) +31+1*32 , 
:HEXT 

210 LOCATE 9,0: PRINT "MINA DE O 
URO* 

220 LOCATE 12, 2: PRINT AS<0)i:IF 
HO-2 THEN LOCATE 21,2:PaiHT AS 
(1) 

230 LOCATE 0,3: PRINT 'SALDO TOT 
AL':TAB{11) :AC0,O) ; :IF NO-2 THE 
N LOCATE 20, 3: PRINT A(l.O) 
240 LOCATE 0,4: PRINT "DINHEIRO" 



;TAB(11) ;AC0.1) ; ; IF NO-2 THEN L 
OCATE 20, 4: PRINT A (1,1) 
250 LOCATE 0,5: PRINT "OURO" j TAB 
(11};A(0,2)::IF NO-2 THEN LOCAT 
E 20,5:PRINT A(l ,2) 
260 LOCATE 0,6: PRINT "$ P/ CAVA 
R-;TAB(11) ;AC0,31I ; :IF NO-2 THEN 

LOCATE 20, 6: PRINT A (1,3) 
270 LOCATE 0,7: PRINT 'NO DE MIN 
AS'jTABdl) jA(0,4) ; :IF NO-2 THE 
N LOCATE 20,7:PRINT Ad. 4) 

280 LOCATE 0,B: PRINT "PROFUNDI/ 
/-:TAB(ll) ;A(O.S) ; :IF NO-2 THEN 

LOCATE 2 0. S: PRINT A (1.5) 
300 LOCATE 1,10: PRINT 'COTACAO 
DO OURO NO MERCADO" : LOCATE 3,11 
: PRINT ER;-P0B KG DE OURO" 
400 LOCATE 12. 13: PRINT A3{M) 
SOO PRINT:PHINT 'l-PeequiBa e d 
eaenvolviaento' 

SIO PRINT '2-Levantaiiento geol6 
g I CO " 
520 PRINT ■'3-Cavar aaie 200 a 

530 PRINT "4-Vender ouro no ner 

cado 

540 PRINT "5-PaB8a a vez 

Pr 

600 AS-INKEYS:IF AS<'1" OR AS>" 

S" THEN 600 

620 ON VAL(A$) G03UB 1000.2000. 

3000.4000,5000 

700 IF A(H,l)<0 THEN 7000 

710 ER=ER+iO00*INT(RND(l) )-200 

720 IF RND (1600) -A(M, 2X0 G0SU8 

900 
740 A(N,0)-A(H,1)+A(H,2)*ER 
750 CLS 
790 NEXT M,N 
BIO CLS 

820 LOCATE (5.5} : PRINT "FIM DE 
JOGO" 

630 LOCATE (0.7): PRINT "SALDO T 
OTAL DE'iASCO) ;TAB(23} iA(0,0) 
840 IF NO-Z THEN PRINT "SALDO T 
OTAL DE-iA3(U ;TAB(23) sA(l.O) 
860 PRINT: PRINT "QUALQUER TECLA 

PARA RECOMECAR" 
860 IF INKEYS""" THEN 860 ELSE 
RUN 

900 CLS 

905 JK=INT(RND{I)*100)+50:IF JK 
>A(M'. 2) THEN JK=A(M,2) 
910 PRINT TAB(91;'R O U B O" 
920 PRINT: PRINT " FORAH ROUB 
ADOS" iJK: 'KG" : PRINT "DE SEU OUR 
O" :A(M.2)-A(M,2)-JK:ACM,0)-A(M. 
0)-JK*ER 

930 PLAY-T25501CDEFBAGFED- 
940 FOR 1=1 TO 500: NEXT: CLS: RET 
URN 
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20 DIM A{1,5) ,C(1.4) ,A3{1) 

120 HOME : PRINT "QUANTOS JOGA 

DORES (1 OU 2) ?": 

130 GET A3: IF A$ < "1" OR A3 

> '2* THEN 130 

140 P "= VAL (AS) :N0 - P:ER ■ i 

0000:A(0.0} - 2000000:A(0,1) - 

AtO,0) :A(1.0) - A(0,OI :A{1,1) -. 



A(0,0) :A(0,3) - I0OOO:A(X,3) - 

A(0.3) 
ISO FOR N - 1 TO P: PRINT : PR 
INT : PRINT "NOME DO JOGAOOR "; 
N;: INPUT AS (N -1): IF LEN (A 
S(N - 1) ) > 8 THEN AS(N - 1) - 

LEFTS (A$(N - 1) .8) 
160 NEXT 
200 FOR N - TO 29; FOR « - 

TO NO - 1 
202 HOME 
2J0 INVERSE : HTAB 12: PRINT " 

MINA' DE OURO ■ : NORMAL 
220 PRINT : PRINT TAB ( 20>;A3 
(0);: IF NO - 2 THEN PRINT TA 
B( 30) :A3 tl) : 

230 PRINT : PRINT "SALDO TOTAL 
"; TAB( 20)iA(0,0);: IF NO - 2 
THEN PRINT TAB t 30);A(1,0)! 
240 PRINT : PRINT "DINHEIRO'j 
TAB( 20);At0,l>f: IF NO - 2 THE 
N PRINT TAB( 30) ;A(1.1) ; 
250 PRINT : PRINT 'OURO KG"; 

TAB( 20) iA(0,2) ; : IF NO - 2 TH 
EN PRINT TAB( 30)iA(l,2); 

PRINT : PRINT "CUSTO P/ CA 

$"; TAB( 20) ;A(0,3) ; ; IF N 

2 THEN PRINT TAB ( 30) ;A{1 



260 
VAR 
- 
,3) 
270 
S": 



PRINT : PRINT 
TAB( 20);A(0.4} 



•N.O DE MINA 
: : IF NO - 2 



THEN PRINT TAB ( 30);A(1,4); 




Como assegurar bons resultados na 
procura da ouro? 

Quando o programa estiver comple- 
to, voce verA que ele segue as regras 
do com6rc!0 — atividade que, entre ou- 
tras coisas, inclui sorte. Por isso mes- 
mo, 6 dificil dar a receita do sucesso 
e da fortuna. Mas algumas dicas terao 
utilidade. 

Embora os custos de mineragao 
possam ser reduzidos gragas a pesqui- 
sa e desenvolvimento, nao 6 aconse- 
Ihdvel investif grandes somas neste 
item, '}A que voce conta s6 com trinta 
rodadas para enriquecer. 

Fapa escavagoes somente em minas 
com boa possibilidade de produzir eu- 
ro, a uma pequena profundidade. Nao 
fique, por^m, eternamente passando a 
vez, pois o jogo pode acabar antes que 
a mina ideal aparetja. 

Se estocar ouro, voc§ correri o ris- 
co de ser roubado, mas compare as 
chances de que tssq ocorra com a co- 
taqao do ouro vigente no mercado — 
tente sempre vender o metal em perfo- 
dos de aita. 
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24 PHOGHAMACAODiJOaOS 24\ 



&ES 



280 PRINT ; PRINT 'PROFUMDIDAD 
E M"; TAB! 20)iA{0, 5);: IF NO 

- 2 THEK PRINT TAB ( 30);A(1. 
5) : 

300 PRINT : PRINT : PRINT "COT 
ACAO DO OUHO :": PRINT ER;" POH 

KG DE OUHO" 
400 PRINT : PRINT TAB ( 14) iAS 
(MJ 
500 PRINT : PRINT "1- PESQUISA 

E DESEMVOLUIMENTO" 
510 PRINT "2- LEVANTAMENTO GEO 
LOG I CO" 
520 PRINT "3- CAVAR HAIS 200 M 

m 

630 PRINT "4- VENDER OURO NO M 

EHCADO' 

540 PRINT "5- PASSAR A VEZ" 

600 GET AS: IF AS < '1' OH AS 

> -5" THEN 600 

620 ON VAL CA$) GOSUB 1000.20 

00, 3000,4000,5000 

700 IF A[M,1) < THEN 7000 

710 ER = EH + INT C RND (1) * 

1000) - 500 

720 IF INT C BND CD * 1600) 

- A(M,2) < THEN GOSUB 900 

740 A(M,0) - A(M.l) + A(M,2) * 

ER 

750 HOME 

790 NEXT «,M 

91 HOME 

820 INVERSE : HTAB 14: PRINT " 

FIM DE JOGO ' : NORMAL 
630 VTAB 5; PRINT "SALDO TOTAL 

DE "jASCO) ;- : "lACO.O) 
840 IF NO - 2 THEN PRINT : PR 
INT -SALDO TOTAL DE "!A$(1);- : 

"iA(l.O) 
850 PRINT : PRINT : PRINT "QUA 
LQUER TECLA PARA RECOMECAR" 
860 GET AS: RUN 
900 HOME 

905 JK - INT ( RND (1) ■ 100) 
+ 49: IF JK > A(M,2) THEN JK - 
A{M.2) 
910 INVERSE : HTAB 15: PRINT " 

R U 8 " : NORMAL 
920 PRINT : PRINT "FORAM ROUBA 
DOS -;JK;' KG DE SEU 0URO-:A(M, 
2) - A(M,2) - JK:A(M,0) - A{M,0 
J - JK * EH 

930 FOB I - 1 TO 2000: NEXT 
940 HOME : RETURN 



10 PMODE 3,1:CLS 

20 DIM H(23) ,T(0) ,D(1) ,B{1) ,A(1 

,5) ,0(1,4) ,AS{1) ,B(1) 

40 FOR K-0 TO 9: READ NU$(K) :NEX 

T 

50 DATA NR2D4R21I4BR2,BFEND4BR2, 

R2D2L2D2&28U4BR2,NR2BD2NR2BD2R2 

U4BR2.02RZD2U4Bn2.NR2D2R2D2L2BE 

4 , D4R2U2L 2BE2BR2 , R2ND4BR2 , NR2D4 

R2U2NL2U2BB2,NR2D2B2D2U4BR2 

60 PCL3 3 

70 DHAM"BM36,23C2L35lf6E3R3NU4R5 

LI10E2HE3R3F4D3F4DF2DF2DF3D2' : PA 



1MT(1B,16) .2 



80 DRAU'BM24,9C3G2D6FSR3E2UH2UH 

UH2UH2BH20 , 1NLDL2CR5D5BM14 , 6RBR 

3RBD4DBL4UBD3LBR4RBD2LBL3LBD2RB 

R3RBD2LBL3LBD2RBR3RBD2LBL3L' : PA 

INT(26,15) ,3 

90 I>RAU'BM2,21C4UBR4ND3BR4D":GE 

T(0,0)-(37.23) ,H,0 

100 PCLS-DBAH-BM7.0C4L6BD2ERFRE 

BBD2L7DR7DL6GNR3DNR3FNR4DNR4GNH 

3DNH3FNR4DR2GL3FNH6FR3FL4GNHDB5 

DL3" 

110 GET(0.0)-(7.2) ,T,0:GET{0,3) 

-(7,10) .D.O: GET (0.11) -(7. 20) .B, 

C 

120 PRINT 6129. 'QUAMTOS JOGADOH 

ES (1 OU 2) 7": 

130 AS-INKEY3:1F AS<"1" OR A3>' 

2" THEN 130 

140 P-WAL(AS) :MO-P:ER-10000:A(0 

,0) -2000000: A (0.1) -2000000: Ad, 

0) -2000000: A (1,1) -2000000: A (0,3 

)-100000:A{1.3>-100000 

150 FOR N-1 TO P: PRINT: PRINT: PR 

IMT' NOME DO JOGADOR* ; N ; : LINEIN 

PUT AS(N-1);1F LEN(AS (N-l) ) >e T 

HEN A9(N-1)-LEFTS(AS(N-1) .8) 

160 NEXT 

200 FOB N-0 TO 29: FOR M-0 TO NO 

-1 

202 CL3 

210 PRINT fi3.'*ina At: ouro"; 

220 PRINT TAB(15) !A9(0) i rlF NO- 

2 THEN PRINT TAB (24) ; AS (1) 

230 PRINT e3 2, "SALDO TOTAL"; TAB 

(14) :A(0.0) :IF NO'-2 THEN PRINT 

«55.A(1.0) 

240 PRINT 064, "DINBEIRO' ;TAB(14 

):A(D.i}:IF NO-2 THEN PRINT e87 

.A(l,l) 

250 PRINT (696. 'OUHO kg";TAB(14} 

:A{0,2):IF NO-2 THEN PRINT §119 

.A(1.2) 

260 PRINT ei2B."S P/ CAVAR"; TAB 

(14) iA(0,3) :IF NO-2 THEN PRINT 

8151, ACl, 3) 

270 PRINT #160. "NO. DE MINAS";T 

AB(14) !A(0,4) :IF NO-Z THEN PRIN 

T 9163, A(l, 4) 

280 PRINT ei92. -PROFUNDI// m' 

Afl(14) iA(0.5) :IF NO-2 THEN PRIN 

T €215, Ad. 5) 

300 PRINT €224, "COTACAO DO OURO 

HO MERCADO': PRINT ER;"POH KG D 
E OURO - 

400 PRINT «330,A3(M) 
500 PRINT "1- PESQUISA E DESENV 
OLVIMENTO 

510 PRINT "2- LEVAHTAMNTO GEOLO 
OICO" 

520 PRINT "3- CAVAR MAIS 200 M" 
530 PRINT "4- VENDER OURO NO ME 
HCADO" 

510 PRINT "5- PASSA A yES" ; 
600 A3-INKE¥3:IF A3<"1* OR A$>- 
5' THEN 600 

620 ON yAL(AS) GOSUB 1000,2000. 
3000,4000.5000 
700 IF A(M.1)<0 THEN 7000 
710 ER=EH+HND(1000) -200 
720 IF HND(1600)-A{M.2)<0 GOSUB 

900 
740 A(M.0)-A{M,1)+A(M.2)«ER 




750 CLS 

790 NEXT M.N 

810 CLS 

820 PRINT ei3B,"FIM DE JOGO" 

830 PRINT ei97, 'SALDO TOTAL DE" 

; AS (0): PRINT TAB (U) : A (0. 0) 

840 IF NO-2 THEN PRINT TAB{5);" 

SALDO TOTAL DE" ; AS d) : PRINT TAB 

(11) iAd,0) 

850 PRINT e449,"QUALQUER TECLA 

PARA RECOMECAR" 

860 IF INKEYS-"" THEN 860 ELSE 

RUN 

900 CLS 

905 JK-HNDdO0)+49:lF JK>A{M,2) 

THEN JK-A(M,2) 
910 PRINT eiO,-R O U B O- 
920 PRINT: PRINT" FORAM R0U6 

ADOS" ;JK; "KG DE-: PRINT" SEU- 



HI 
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K 

E 

2) 



UB 



OORO" :A{H,2}-A(W,2J-JK:^CM.0)- 
A(H,O>-JK«EB 

930 PLAy'T401CDEFBA0FED' 
940 CL9: RETURN 

Todos esses programas funcionam de 
maneira similar, seguindo a mesma es- 
trutura bdsica e a mesma numeraijao. 
Do inicio ate a linha 200, contudo, ha 
algumas varia?6es. 



Para come^ar, a linha 10 pergunta 
qual o numero de jogadorcs, e a hnha 
20 verifica se a resposta se encontra no 



intervalo adequado. A linha 30 acerta 
OS valores de p e nop de acordo com o 
mimero escolhido. 

Algumas matrizes sao dimensionadas 
na linha 40, juntamente com a cota^ao 
do ouro no mercado — er, A matriz a 
armazena informafoes sobre o saldo dos 
jogadores; a matriz c, informagoes so- 
bre as minas; a matriz a$ com6m os no- 
mes dos jogadores e a r e usada para in- 
dicar o comedo das escavaijoes na mina 
em questao. A linha 50 estabdece os sal- 
dos e as condi(?6es iniciais das minas dos 
dois jogadores. O valor zero i coloca- 
do em r(l) e r(2). indicando que as es- 
cavaijoes nao comefaram na primeira 
mina. Outros valores sao dados a seguir: 



a(1,l) e a(2,l) contem o saldo de cada 
jogador; ii(l,2) e a{2,2), o total em di- 
nheiro que cada jogador possui; a(l,3) 
e a(2,3) indicam a quantidade de ouro 
de cada um; a(l,4) e a(2,4), os custos de 
mineragao; a(l,S) e a{2,5) revelam o nu- 
mero de minas de cada um e a(l,6) e 
a(2,6), a profundidade das minas. 

A linha 70 permite a entrada do no- 
me dos jogadores. 



m 



A hnha 20 dimensiona as matrizes. A ,,, 



linha 90 seleciona a tela de textos de 32 



567 
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colunascom tundo amarelo, caracteres 
pretos e bordas azuis. As teclas de fun- 
gao sao desligadas. 

A tela de 32 coiunas foi escoihida 
porque permite o uso de cores e de b!o- 
cos graficos, tornando o programa mais 
intercssante. 

A linha lOO faz com que os oito pri- 
meiros caracteres — codigos a 7 — se 
tornem blocos azuis (veja artigo da pa- 
gina 261), A mesma linha ainda faz com 
que OS oito caracteres seguintes — co- 
digos 8 a 15 — se tornem blocos de cor 
vermelha. 

A linha 110 determina que os carac- 
teres numericos sejam escritos cm bran- 
00 sobre fundo vermelho. 

Depois desses preparatives iniciais, a 
linha 120 pergunta qual o niimero de jo- 
gadores. A linha 130 verifica se a res- 
posta obiida i valida — um ou dois jo- 
gadores. 

Em seguida, a linha 140 acerta o va- 
lor das variaveis P, NO — as duas iguais 
ao numero de jogadores — e ER — co- 
tagao do ouro. Aldm disso, ela estabe- 
lece OS valores iniciais de varies elemen- 
tos da matriz A; A(O.O) e A(0,I), saldo 
total dos jogadores; A(0,1) e A(l,l), 
quantia em dinheiro que cada urn pos- 
sui; A(0,2) e A(l,2). quantidade de ou- 
ro; A(0,3) e A(l,3)i custo da miiiera(;ao. 

As linhas 150 e 160 pergumam o no- 
me dos jogadores. 

O jogo do MSX, como ja dissemos, 
utiiiza a tela de textos de 32 coiunas, 
com cor de fundo amarelo e caracteres 
pretos. Os caracteres numericos apare- 
cem em branco sobre vermelho, enquan- 
to a tela e mantida com fundo azul, Tu- 
do isso e obtido per meio do comando 
VPOKE, que ja usamos outras vezes 
(veja artigo da pagina 261). 
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Na versao para Apple e o TK-2000, 
nosso jogo come<;a dimensionando al- 
gumas variaveis na iinha 20. 

Em seguida, a linha 120 pergunta 
quantas pessoas vao participar e a linha 
130 verifica a validade da resposta. A li- 
nha 140 guarda o numero de jogadores 
nas variaveis P e NO, que servirao de 
contadores e sinalizadores em varios 
ponios do programa, permitindo que os 
dados de cada jogador sejam colocados 
no local correto, Essa iinha ainda acerta 
o valor da cotaijao do ouro — ER — , 
bem como de varios eiementos da matriz 
A; A(0,0) e A(1,0), saldo total dos joga- 
dores; A(0,1) e A(l,l), total em dinheiro 
que cada um possui; o par seguinte cor- 
responde a quantidade de ouro e o ulti- 



mo, ao custo da escava^ao nas minas. 
As linhas 150 e 160 perguntam o no- 
me dos jogadores. 



Q 



A linha 10 seleciona o modo PMO- 
DE 3 e a tela e limpa. A linha 20 dimen- 
siona varias matrizes. 

Como parte do jogo acontece na te- 
la grdfica, em certos momentos e preci- 
se usar DRAW para escrever texto. As 
linhas 40 a 1 10 contem a rotina para es- 
crever na tela de alta resolugao, publi- 
cada era INPUT anteriormenie (veja ar- 
tigo da pagina 232). 

As linhas 120 e 130 perguntam o nu- 
mero dc jogadores e verificam se a res- 
posta e valida. A Iinha 140 acerta os va- 
lores de P e NO de acordo com o nii- 
mero escolhido. Em seguida, alguns dos 
eiementos da matriz A tem seus valores 
iniciais estabelecidos, a saber: A(0,0) e 
A(l ,0) contem o saldo total de cada jo- 
gador; o pr6ximo par de eiementos con- 
tem os saldos em dinheiro; o seguinte, 
a quantidade de ouro que cada um pos- 
sui e o ijkimo correspoiide ao custo da 
mineracao. 

As linhas 150 e 160 pedem os nomes 
dos jogadores. 
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Dai em diante os programas sao bem 
parecidos. Todos eles tem dois lagos 
FOR... NEXT que comepam na linha 
200 e terminam nas linhas 790 e 800. Es- 
ses laijos sao responsaveis pela exibipao 
do menu e da situai;ao das companhias 
de tnineragao na tela. 

A variavel N (n, no caso do Spec- 
trum) conta o numero de rodadas ja jo- 
gadas. A variavel NO (nop, no Spec- 
trum) garante a oferta de trinta rodadas 
a cada jogador. Observe que, mais 
adiante na listagem, esta mesma varia- 
vel fara com que a situapao das compa- 
nhias de mineraijao seja exibida. 

A linha 202 escolhe as cores da tela 
no Spectrum. Nos demais, ela apenas 
limpa a tela — note que no MSX isto 
6 feito por uma sub-rotina que enche a 
tela com o caraclere de c6digo 0, cuja 
cor azul foi definida pela linha 110. A 
linha 210 imprime o titulo: MINA DE 
OURO. A linha 220 imprime o nome 
dos jogadores. O segundo nome s6 e im- 
presso se a op?ao para dois jogadores 
foi escolhida no inicio. 

As linhas 230 a 300 mostram os va- 
lores: SALDO TOTAL, saldo em DI- 
NHEIRO, saldo em OURO, custo para 



CAVAR, N? DE MINAS. PRO FUNDI- 
DADE da, mina e COTAgAO DO OU- 
RO NO MERC ADO. Se duas pessoas 
estiverem jogando, os dois valores serao 
impresses no local correspondente. O 
programa faz isso com base nos valores 
das variaveis nop ou NO. 

A linha 400 mostra o nome da pes- 
soa que esta jogando no momento. As 
linhas 500 a 540 oferecem as opgoes de 
Pesquisa e Desenvolvimento, Levanta- 
mento Geologico, Cavar mais 200 me- 
tres. Vender ouro no mercado ou Pas* 
sar a vez. No Spectrum, a linha 550 so- 
licita ao jogador que fa?a sua opfao. 
Nos demais micros nao ha esta hnha. 
As linhas 600 a 620 usam IN KEYS ou 
GET para obter a resposta do jogador. 
Alem disso, verificam a validade da res- 
posta e chamam a sub-rotina correspon- 
dente a escolha feita. 

A linha 700 verifica se o saldo total 
caiu abaixo de zero, terminando o pro- 
grama, se for caso, por meio de uma 
sub-rotina de finalizagao. A linha 710 
faz com que a cotagao do ouro fluiue 
ao acaso; assim, o jogador devera ter o 
cuidado de vender o metal nas epocas 
de "alta". 

A Iinha 720 compara um numero 
aleatirio com a quantidade de ouro do 
jogador, para decidir se haver^ um rou- 
bo — observe que a.s chances de roubo 
aumentam com a quantidade de ouro 
armazenada, A rotina que cuida do rou- 
bo lica nas linhas 900 a 940. A linha 905 
decide quanto ouro vai ser roubado, e 
a linha 920 informa que esta quantida- 
de foi roubada. 

A linha 740 calcula o saldo total, adi- 
cionando o saido em dinheiro ao valor 
do ouro armazenado, calculado com ba- 
se na cota^ao atual. 

A linha 350 restabelece as cores da te- 
la e a limpa, antes que o NEXT envie 
o programa de volta para a linha 200, 
para mais uma rodada. 

As linhas 810 a 840 contem a rotina 
de finalizacao do jogo, usada quando o 
saldo de um dos jogadores cai abaixo de 
zero. Ela mostra na tela as condi<;oes fi- 
nals das companhias de minera^ao e in- 
forma: FIM DE JOGO. 

Finalmente, as linhas 850 a 880 per- 
miiem uma nova partida. 

Na pr6xima segao, adicionaremos va- 
rias sub-rotinas que farao com que o jo- 
go funcione. Haverd rotinas para redu- 
zir OS custos de mineragao por meio de 
pesquisa e desenvolvimento, para fazer 
o levantamento geologico, escavar o so- 
lo e vender o ouro no mercado, Alem 
disso, traremos os dados necess^ios pa- 
ra a elaboragao dos graficos que ilus- 
tram as minas e mostram o progresso 
das escavag:5es. 
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OS CARACTERES DE 



CONTROLE DO CURSOR 



FIGURAS MAIS COMPLEXAS 



ANIMACAO DE FIGURAS 
COMPLEXAS 



Usando graficos de baixa resolucao, 
podemos criar figuras semelhantes a 
sprites. Voce aprenderci a armazena-las 
em uma unica variavel, mesmo que 
ocupem varias linlias na tela. 



A forma mais avanijada de produgao 
de figuras aniraadas em BASIC, nos mi- 
cros da linlia TRS-80, consiste na con- . 
catena^ao de varies caracteres graficos. 
e seu armazenamento em uma unica va- 
riavel aifanumerica. 

Esse metodo funciona muito bem, 
mesmo quando a figura ocupa mais de 
uma linha na tela. Mas, para que pos.- 
samos continuar tratando a figura cc- 
mo uma entidadc ilnica (por exemplo, 
para empregar a varidvel que a armaze- 
na dentrode um PRINT®), precisare- 
mos incluir na sua definigao caracteres 
de com rote do cursor. 

Ja mencionamos, brevemente, que 
certos caracteres situados na falxa do 
codigo ASCII que vaJ de a 31 servem 
para o controle de funfoes do video, 
quando sao utilizados com um PRINT 
CHRS. Por e-semplo, PRINT CHRSa^) 
dobra a largura dos caracteres na tela 
(32 colunas). 

Quatro desses caracteres nos interes- 
saiti na geragao de figuras com a tecni- 
caque aqui examinaremos. Sao os ca- 
racteres de controle do cursor: 

24 recua o cursor uma posiijao na 
horizontal 

25 avan^a o cursor uma posi^ao 
na horizontal 

26 desce o cursor uma posi^ao 

27 sobe o cursor uma posigao 
Suponharaos que voce queira dese- 

nhar na tela um pequeno disco voador, 
formado por duas iinhas. Os codigos da 
linha de cima serao: 
100 DATA 174,197,187.187,16?, 
187.132 

e OS da linha de baixo: 

110 DATA 126.143,143,143.143. 
143 

Para concatenar os codigos em uma 
tinica figura, proceda assim; quando o 
cursor terminar de tratjar o ultimo ca- 



ractere da linha de cima (o 132), fai;a-o 
descer uma linha e recuar sete posifoes 
(niimero de bytes da linha de cima do 
grdfico). Coloque, entao: 

105 DATA 26,24,24,24,24,24,24, 
24 

Depois, acione as Iinhas anteriores ao 
programa que damos a seguir e execute- 
o para ver resultado. 

ID DS--* 

20 FOR I-l TO 21;READ N 
30 D5»=D3+CHa3(N) :NEXT 1 
40 CLS:PRINT $ 288,05; 

A figura aparecera inslantaneamen- 
te na tela, com um unico PRINT! 



COMPACTANDO A DEFINICAO 



Como a defini^ao da figura inclui 
muitos c6digos identicos, e posslvel dar- 
Ihe uma forma mais compact a, recor- 
rendo a fun^ao STRINGS e evitando o 
la90 FOR... NEXT e as linha.'i DATA. 
Digite NEW e entre este programa: 

10 DS = CHR3[174)+3TRING5 

(3,ie7)+CHH3(132)+CHR3C26) + 
STEINGSC7,24)+CHaSC128) + 

STRINGS (5, 143) 

20 CLS: PRINT §256, D3! 



FIGURAS MAIS COMPLEXAS 



O metodo de concatenafao de c6di- 
gos graficos em uma variavel aifanume- 
rica tem, evidentemente, suas limita- 
goes. Se a figura ocupar varias Iinhas, 
por exemplo, havera uma excessiva uti- 
lizagao da memoria, ja que precisamos 
de um conjunto de caracteres de contro- 
le entre cada linha. 

A iimitagao mais seria, entretanto, 
esta na impossibilidade de se criar uma 
figura com um numero de bytes supe- 
rior a 255, pois este e o comprimento 
maximo de uma cadeia de caracteres no 
BASIC do TRS-80. A melhor aSternati- 
va sera, entao, repartir a figura em va- 
rios blocos e usar mais de um PRINT@ 
para coloca-la inteira na tela. Ao con- 
tr^rio do que parece, tal procedimento 
nao reduz a velocidade de anjmagao gra- 
fica e os resultados, em geral, sao seme- 



lhantes aos obtidos com a tecnica de mo- 
vimentafao do cursor. 

Outra tecnica muito utij quando se 
tem figuras grandes e complexas e a cha- 
mada made de posi^ao^ comprimento, 
caractere. Suponhamos que voce quei- 
ra desenhar um trenzinho, fazendo o 
pistao da roda se movimentar e nuvens 
de fumaga escaparem da chamine. O 
mais adequado sera desenhar primeiro 
a locomotiva compieta, usando a tecni- 
ca da triade e, depois, animar as partes 
que interessam, substituindo sucessiva- 
mente duas figuras (por exemplo, o bra- 
go do pistao em duas posigoes). 

A triade consiste em uma sequencia 
de tres numeros, expressa em uma linha 
DATA de defmigao da figura'. O primei- 
ro numero determina a posifao @ on- 
de comega a cadeia de caracteres; o se- 
gundo define a quantidade de caracte- 
res existentes na cadeia; o terceiro tndi- 
ca o codigo grafico dos elementos iguais 
da cadeia: 

100 FOR 1»1 TO 32:READ N1,N2.N3 
110 PRINT e N1,3THIMG9(N2,N3) ! 

120 NEXT I 



ACELERE OS SPRITES 



Agora que voce ja sabe como criar fi- 
guras de caracteristicas semelhantes as 
dos sprites para os microcomputadores 
da linha TRS-80, sera facil fazer anima- 
i;ao grafica com eles. t cSaro que essas 
figuras nao possuem uma propriedade 
fundamental dos sprites autenticos (co- 
mo OS da linha MSX): a prioriza<;ao de 
imagens. Explicando melhor, cada spri- 
te recebe um numero, que indica ao 
computador se ele vai obstruir ou ser 
obstruido por outro sprite que ocupar 
o mesmo lugar na tela. 

De qualquer maneira, e possivel elabo- 
rar programas de animagao grafica re- 
lativamente sofisticados para o TRS-80. 
Um fator importante na animagao e o 
tempo que leva o computador para tra- 
gar um bloeo grafico, definido confor- 
me as tecnicas apresentadas nesta serie. 
Se a execugao do desenho for muito de- 
morada — como no caso de blocos gra- 
ficos grandes ou formados por varios 
PRINT @ separados — , a animagao 
grafica nao saira perfeita. 
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A matem^tica fornece vaHos modelos 
para o mundo real. Utilizartdo-os 
em seus programas, voca pode produzir 
efeitos muito interessantes. Aqui, 
sitnulamos a trajetdria de uma bola. 



671 



Na tentat)va de construir um mode- 
lo para o mundo que nos cerca, a raate- 
mitica aplicada e outros ramos da cien- 
cia fazem uso de um grande niimero de 
equafdcs. Estas resultam do exame de 
dados gerados por observaijoes e expe- 
rimentos. A partir desse exame, calcula- 
se uma equa^ao que explica a relap ao en- 
contrada de maneira que satisfaija os da- 
dos obtidos. 

Tais equEfoes relacionam-se k mais 
variada gama de fenomenos fisicos e 
biologicos — desde o crescimento de 
uma planta ate a trajet(iria de um come- 
ta no espago. Esse tipo de informa^ao 
tem diversos usos, sobretudo porque as 
equafoes possibilitam prever como as 
coisas se comportarao eni determinadas 
circunstancias. 

O significado das equacoes mais 
complicadas pode nao ser claro a pri- 
meira vista. Algumas delas s6 sao com- 
preensiveis para os que estao envoi 
vidos nam campo especifico de pes- 
quisa. Muitas, porem, descrevem 
fenomenos que fazem pane da 
experiencia de qualquer pessoa. 
Ja vimos um exemplo no pro- 
grama que usa uma formula 
para estudar o comporta- 
mento de um objeto em queda 
(veja artigo da pagina 434). 

Mas, sejam as equagoes 
complicadas ou nao, o re- 
sultado dos cdlculos consis- 
te simplesmente num nii- 
mero — para o tempo ou 
qualquer outra coisa — , 
que e mais um modeio pa- 
ra o mundo real. Alem da 
ulilidade ji mencionada, es- 
sas equafoes tem outro em- 
prego: elas podem ser progra- 
madas no seu micro para pro- 
duzir uma interessante simula- 
gao da realidade. Nesse caso, a 
equaijao e utilizada para controlar 
a apresentagao de tela. Assim, no 
exemplo anterior, poderiamos criar uma 
imagem para mostrar como se compor- 
ta um objeto em queda livre. 

E possivel empregar qualquer equa- 
^ao de movimento para imitar na lela a 
movimentacao real de um objeto. Essa 
ideia esta na base de muitos programas 
e de curiosas animagoes. 



A melhor maneira de compreender 
como isso funciona e trabalhar com um 
exemplo prdtico — ou seja, tomar uma 
serie de equagoes que podem ser encon- 
tradas em qualquer livro de fisica e 
transforma-las em betas simulagoes na 
tela. Como exemplo, vamos comegar 
com algo facil de simular: a trajet6ria 
de uma bola numa mesa de bilhar. 



MODELO DA BOLA 



Se vocS bater numa bola com um ta- 
co (ou Ihe der um chute), ela se mover^ 



em liiiha reia ate encontrar algum obs- 
taculo. Se houver outra forga agindo so- 
bre ela — vemos iaterais ou gravidade, 
digamos — , a trajetdria e a velocidade 
serao modificadas. Em uma boa mesa 
de bilhar, pode-se desconsiderar a agao 
de ventos, restando apenas uma forga 
com que se preocupar: o efeito da fric- 
gao ou atrito com a mesa, que reduzira 
gradualmente a velocidade da bola. 
Mas, quanto? Ai' entra a primeira de 
nossas equagoes. 

Grosso mode, quanto maior a for- 
ga que atingir a bola no momento da ta- 
cada, mais longe ela ira. Existe uma 
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MODELO DA BOLA 



COMO FAZER A BOLA R OLAR 
UMA M!RA m6vEL 



COMO A EQUACAO FUNCIQNA 



TACADAS MAIS FORTES 



CALCULO DAS COORDENADAS 



RAIZES QUADRADAS 



COMO DESACELERAR 



COMO CALCULAR 



A VELOCiDADE DA BOLA 



equai^ao que calcuia a distancia a ser 
percorrida por urn objeto, dada a Forija 
inicial e alguns outros elememos, como 
efeito do atrito. Essa equagao tern va- 
riadas aplicafoes em programagao. Pa- 
ra ve-la funcjonando, digite e execute es- 
te programa: 



10 CLS 

20 PRINT "1) Bola de futebol 

/ grafea longa' 

30 PRINT ""2) Bola de golfe / 



grana cur 

40 PRINT • 

a Lua' 

50 PRINT ' 
bi Ihar" 

60 INPUT " 

Pt 

70 IF opt< 

GOTO 60 

60 IF opt- 

90 IF opt- 

95 IF opt- 
100 IF opt 
110 CLS 
lis PRINT 
er de 1 a 1 
o" 



ta" 

'3} Bola de oolfe n 

'4) Bola e* Hesa de 

Faca a sua opcao',o 

1 OH opt>4 THEN 

1 THEN LET fg-4 

2 THEN LET fg-1 .4 

3 THEN LET fg-.l 

4 THEN LET fg-.7 

A velocidade pode ft 

5 aetraft por segund 




120 INPUT "Qual a velocidade i 

nicial (■/b)",v 

125 IF v<l OR v>15 THEN GOTO 

120 
160 LET di«t-(v*v)/(2''£Q) 
170 CLS 

210 PRINT AT 2,4; 'Sua bola ale 
ancaria' 

220 PRINT AT ?, 8:dist ; "Metroe" 
250 PRINT AT 18,1: FLASH 1 ; "Qu 
dlquer tecla para continuar' 
260 PAUSE 
2 70 GOTO 10 



QQ 



10 CLS 

20 PBINT «96,' DBOLA DE PUTEBO 

L / ORAHA LOHOA' 

10 PRIHT «160.* 2) BOLA DE FUTEB 

OL / ORAMA CURTA' 

40 PRINT 0224,- 3) BOLA 01 OOLri 

NA LUA' 
50 PRINT 0288. - 4) BOLA EH HESA 
DE BILHAR* 

60 PRINT: PRINT- QUAL SUA OPCAO 
7- 

70 X8-IMKEY3:IF K$<-1- OB lt$>-4 
■ THEN 70 
80 OP-VAL(K») 
90 IF OP-1 THKN Fa-4 
100 ir OP- 2 TBEN FG-1. 4 
110 IF OP-3 THEN FG-.l 
120 IF 0P''4 THEN Fa-.7 
130 CLS 

140 PRINT- A VELOCIDADE PODE SE 
R DE 1 A 15 METROS POR SEOUNDO' 
150 PRINT: INPUT* OUAL A VELOCID 
ADE INICIAL QUE VOCE DESEJA D 
AR (M/S)-;VE 

160 IF VE<1 OR VE>15 TBEN 130 
170 DI-{VE*VE)/(2«FG) 
180 CLS 

190 PRIHT'SUA BOLA ALCANCARIA" , 
DI i "HETHOS" 

200 PRINT e449."0UALQUER TECLA 
PARA RECOHECAR' 
210 IF INKEYS-"" THEN 210 
220 GOTO ID 

Para rodar o programa no TRS-80, 
modifique os numeros utilizados nas 
insiru?6es PRINT® para o dobro dos 
que est§o na listagem. 
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10 CLS: COLOR 15 ,4 .4:DEFSNG D 
20 LOCATE 5, 5: PRINT" 1) Bola de 
Cutebol e» oraaa lonqa' 



, 



30 LOCATE 5,7:PRINT"2) Bola de 130 CLS 

qolfe en grama curta' 140 PEIINT 

40 LOCATE S,9:PRINT"3) Bola d* en netroB 

golfe na lua" de 1 a 15 

50 LOCATE 5.11;PRmT"4) Bola en 150 PRINT: 

■eaa de bilhar' de inicial 

60 LOCATE 7,18:PRIHT"EBColha au 160 IF VE< 

a opc3o:"; 170 DI= (UE 

70 K$-1MKEYS;IF KS<"1" OR KS>"4 180 CLS 

" THEN 70 190 PRINT: 

eo OP"VAL(KS) orreu "jDI 

90 IF OP-1 THEN FG-4 200 LOCATE 

100 IF OP-2 THEN FQ-1.4 <iualquer 

110 IF OP-3 THEN FG- . 1 210 IF INK 

120 IF OP-4 THEN FG- . 7 220 GOTO 1 



PRINT' A velocidade 
por seoundo pode aer 

INPUT" Qual velocida 

<eHi M/a) ' iVE 
1 DB VE>15 THEN 130 

■UE)/{2*FG) 

PRINT' Sua bola perc 
; "aetroa" 

0,12: PRINT" Preasione 
tecla para recomecar" 
EYa-"* THEN 210 




aiE] 



1 HOME 

20 HTAB 5: VTAB Sr PRINT "1) B 

OLA DE FUTEBOL EM GRAMA LONGA" 

30 HTAB 5: UTAB 7: PRINT "2) B 

OLA DE GOLFE EM GRAMA CURTA' 

40 HTAB 5: VTAB 9: PRINT '3) B 

OLA DE GOLFE NA LOA" 

50 HTAB 5: VTAB II: PRINT "4) 

BOLA EK MESA DE BILHAR' 

60 HTAB B: VT/ 1 15: PRINT 'ESC 

OLHA SUA OPCAO ' : 

70 GET KS: IF K$ < "1' OR K3 > 
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-4" THEN 70 

80 OP - VAL (K3) 

90 IF OP = 1 THEN FG = 4 

100 IF OP - 2 THEN FG = 1.4 

110 IF OP » 3 THEN FG - . L 

120 IF OP - 4 TBEW FG -= .7 

130 HOME 

140 PBINT ; PRINT " A VELOCID 

ADE EM METROS POR SEGUNDO PO-DE 

3ER DE 1 A 15 .' 
150 PRINT : INPUT " QIJAL A VE 
LOCIDADE INICIAL (EMM/S) " ; VE 
160 IF VE < 1 OR VE > J5 THEN 
130 

170 DI = CWE * VE) / (2 * FG) 
160 HOME 

190 PRINT ■ PRINT " SUA BOLA 
PERCORBEU " i DI ; * METROS" 
200 VTAB 12: PRINT "PRESSIONE 
QUALQUER TECLA PARA RECOMECAR" : 

210 GET KS 

220 GOTO 10 

O programa come^a perguntando a 
respeito das condi(;:oes em que se encon- 
tra nossa bola hipotetica. Em seguida, 
calcula a distancia que ela percorreria, 
para qualquer velocldade inicia! que vo- 
ce escolher. Varios fatores — como atri- 
to, massa e gravidade — sao levados em 
coEta, 

A equa^ao usada ^ a seguinte: 



Distancia = 



vT2 
2*fg 



O V corresponde a velocidade inicial 
e fg ao valor que engloba a gravidade 
e o atrito. Obviamente. o valor de fg e 
diferente para cada uma das opfoes do 
programa. 



OS RESULTADOS 



A equa^ao e solucionada na Linha 160 
do programa do Spectrum ou 170 do 
dos outros micros. Voce pode ver que, 
embora na equa<;ao haja uma potencia- 
^ao, nao hi sinal dessa opera<;^ao (t) na 
Linha refenda. Ocorre que os computa- 
dores calculam mais rapidamente somas 
e muhip]ica?oes do que potencias. As- 
sim, quando o niimero est^ elevado ao 
quadrado (nosso caso), e melhor 
multiplica-lo por eie mesmo (v*v) do 
que eleva-lo a segunda potencia (v T 2). 

A op?ao i — bola de golfc na Lua 
— fornece resultados muito maiorea que 
as demais porque o seu valor para fg e 
hem menor que o das outras op^oes, 
uma vez que a gravidade na Lua corres- 
ponde a somente um sexto da gravida- 
de na Terra. 

A ultima opipao — a da bola na me- 
sa de bilhar, com a qual trabalharemos 
a seguir — tamb^m oferece resultados 



altos, porque o atrito e muito pequeno 
em re!a?ao ao da grama. 

Os valores do programa para o atri- 
to e a gravidade sao apenas aproxima- 
dos, nao exatos, Por6m, dao uma ideia 
razoavel de como uma equaijao desse ti- 
po pode ser usada dentro de um progra- 
ma para prever a distancia percorrida 
por um objeto sob diversas circtinstan- 
cias. Mas ainda nao pudemos visual izar 
objeto em movimento. 



A BOLA EM ACAO 



A equa^ao apresentada calcula a dis- 
tancia percorrida por um objeto, mas 
assume que nao ha nada no caminho de- 
le. A op^ao da bola de bilhar, no pro- 
grama dado, fornece um bom exernplo: 
resuhado pode ser uma distancia de 
to metros. Mas mesas de bilhar nao tem 
esse tamanho: a bola rebateria nas bor- 
das da mesa. 

Ao contririo do comportamento im- 
previsivel de uma bola de futebol sobre 
a grama, uma bola de bilhar reage de 
maneira muito regular quando bate con- 
tra a borda da mesa (a nao ser que te- 
nha tomado um efeito giratorio). Ela re- 
bate cspalhando o angulo de incidencia 
(o angulo com que a bola atinge a bor- 
da). Obscrvando a figura da pagina 673, 
voce entenderd melhor o que ocorre. A 
bola saiu do ponto a e moveu-se pela re- 
ta tracejada ate parar no ponto b. Co- 
mo voce pode ver, os angulos formados 
pela linha da trajetoria da bola e uma 
reta perpendicular a borda da mesa sao 
simetricos. 

Mais uma vez, a matematica aplica- 
da fornece uma equagao para demons- 
trar este principio. Com isso, podemos 
fazer um programa que simule a traje- 
toria da bola na mesa rebatendo em uma 
ou mais bordas. 

O quadro da ultima pdgina deste ar- 
tigo mostra as equafoes que calculam as 
posigoes da bola apos bater contra qual- 
quer uma das bordas da mesa, Embora 
pare(;a complicado, seu computador faz 
OS calculos muito rapidamente. 



10 BORDBR 4: PAPER 4r INK 0: 

CL3 

60 LET bji-128r LET by-76; LET 

cJt-lOO: LET CY-112: LET nx- 

100: LET ny-112 

90 FOR n-6 TO 20: PRINT 

PAPER 7iAT n.Zi* 

" : NEXT n 
100 CIRCLE OVER L;bx,by,4 
110 PLOT OVER l!CJi-4,cy: DRAW 

OVER 1:8.0: PLOT OVER Ijcx, 
ey-4: DRAW OVER 1:0,8 




Os §ngulO!« formados pela trajetdria 

da bola de bilhar <e uma reta perpetjdicuiar 

a borda da mesa sao simetricos. 

120 LET a3-IHKEY3; IF »$-"' 
THEN OOTO 120 
130 IF lNKEYS""a" AMD cy>12 
THEN LET ny-cy-2: GOTO 190 
140 IF INKEY$-"q" AND cy<l22 
THEN LET ny-cy+2: GOTO 190 
150 IF lNKEY$="p" AND cx<236 
THEN LET nx-C3i+2: GOTO 190 
160 IF IHKEYS-'o' fiMD cx>20 
THEN LET iw-C3(-2: GOTO 190 
170 IF INKEY3-CHH$ 32 THEN 
GOSUB 500 : GOTO 300 
190 PLOT OVER l!cx-4.cy: DRAW 

OVER 1:9,0: PLOT OVER liCX. 
cy-4: DRAW OVER 1;0.B 
200 LET cy-ny: LET cx-nx 
210 GOTO 110 
JOO IF INKEY$-"" THEN GOTO 

300 
305 CLS 

310 PRINT AT 2.5i"ALCAIJCE-"i 
INT (p*p«100/(18«18«.4))/100 
320 PRINT AT 5 , 5 ; "VELOCIDADE I 
NICJAL-'jINT (ABS CP«100/18))/ 
100 

330 PRINT AT 10,8i"0utra v*» ? 
tB/n)- 

340 LET ■S-1NKEY3; IF a3<>"B~ 
AND a3C>"n" THEN GOTO 340 
350 IF ^$-'0" THEN CLS : GOTO 
90 

360 PAPER 7: CLS : STOP 
500 IF cx-bK AND cy-by THEN 
LET p-0: RETURN 
510 LET P-0 
515 PRINT AT 0,0;" 

520 LET p-p+2: IF p-256 THEN 

GOTO 510 

530 PLOT p-1,168: DRAW 0,7: 

PLOT p,16B: DRAW 0,7 

540 IF INKEYS-CHRS 32 TBEH 

GOTO 520 

550 CIRCLE OVER l:bx,by,« 

560 LET dx-cx-bx: LET dy-cy-by 

570 LET v-p/18: LET bq-SQR (dx 



*dx+dy«dT} 

590 LET t-1 

600 PLOT bx-.5,bY+.5 

610 LET wx-v"dx/sq: LET vy-v* 

dy/aq 

620 LET bx-bji-^vx*t-SGM V]i».l*t 

*t: LET by-by+VY*t-SON V¥*.l*t 

*t 

630 LET v-v-.l 

640 IF tiBS VC.I THEN OOTO 700 

6S0 IF bx<15 THEM LET dx— dx : 

LET bJt-30-bii 

660 IF bx>239 THEN LET 6k—6x 

: LET bjl-4 78-b)t 

670 IF by<8 THEN LET dy— dy: 




Como variar a velocidade de simula^So 
do movimento? 

Em primeiro lugar, 6 necessSrio es- 
tabelecer a distinpao entre velocidade 
simulada de deslocamento da bota (ou 
de um corpo qualquer), medida em 
cm/s ou outra unidade de velocidade, 
e velocidade real de deslocamento da 
imagem da bola na tela. 

A velocidade real com que a boia se 
deslocarS na tela depende de muitos fa- 
tores. Um deles 4 o tempo que o inter- 
pretador BASIC leva para resolver to- 
das as equagSes matem^ticas que re- 
gem o modelo cinemitico. Esse tem- 
po varia conforme o computador e a 
eftciencia do programa, Um micro da 
linha MSX, por exempio, 6 bem mais 
r^pido para resolver equagoes do que 
um ZX-8 1 . Este divide o tempo total de 
execugio entre UCP e manutengao da 
tela, o que retarda o clilculo, pois tor- 
na necess^rio o uso de SLOW para que 
a trajet6ria da bola seja exibida na tela. 

A eliciencia do programa tamb^m 6 
importante. Um numero excessive de 
substftufgoes nas equggoes retarda a 
sotugao. Podemos, assim, aumentar a 
eliciencia, usando alguns truques, co- 
mo a inclusSo de poucas equagoes ou 
a colocagio de v^rtas delas em uma 
unica linha de comarvdo. 

t importante, ainda, considerar que 
o incremento de distancia nas diregoes 
X e Y (DX e DY) afeta o numero de pon- 
tos de trajetdria calculados por segun- 
do. Quanto menores esses valores, 
mais fiel serS a simulagio e mais pre- 
cJsos serSo os resultados dos cdlculos. 
Infelizmente, a velocidade diminuir^. 
Usar valores muito altos de OX e DY, 
por outro lado, 6 perigoso, pois a simu- 
lagao pode ficar pouco realista. 



LET by-16-bY 

680 IF by>127 TBEH LET dy— dy 

: LET by-254-by 

690 GOTO 600 

710 IF bx<19 THEM LET bx-ZO 

720 IF bx<235 THEN LET bx-235 

730 IF byCi2 THEN LET by-12 

740 IF by>123 THEN LET b¥-123 

750 CIRCLE bX,by,4: RETUfiN 

D 

10 PHODE 3,1:PCL8:DIK B(2),BL(2 

) ,C{0} 

30 DRAW'BHS,0C3FRFO6OLOHL2HU&E' 

:PAIHT<5,S) ,3 

40 [»RAW'eH20,0C2D2NLB2DL3FD' 

50 <1ET{0,0)-{9,10> ,B,G 

60 aET(l8,0)-(23.5) .C.O 

70 PCLS 4: SCREEN 1,0 

80 LINE (IS, S8}- (230. 170K PRESET 

BF 
90 8X-l23:B¥-110:CX-125:CTr-112: 
MX-125:Ny-112 

100 PUTCBX,B1f}-(BX-«-9,BT+10) .6.0 
R 

110 P0T(CX,CY)-(CX+5,Cy+5) ,C,OR 
120 »IX-CX:MY-CY 

130 IF PEEK (341) -247 THEN HY-HY 
-2: GOTO 190 

140 IF PEEK (342) -24 7 THEN NY-NY 
+2:O0T0 190 

ISO IF PEEK(343)-247 THEN NX-NX 
-2:O0TO 190 

160 IF PEEK(344)-247 THEN NX-NX 
+2: GOTO 190 

170 IF PEEIC(345}-247 OOSUB 500: 
GOTO 220 
180 GOTO 100 
190 IF MX<18 on NX>225 OR NY<58 

OR N¥>165 THEN 120 
200 PUT(CX.CY)-(CX+5,CY+5) ,BL,P 
SET 

210 CX-HX : CY-NY : GOTO 100 
220 PUT(BX,BT)-(BX+9.BY+10) ,B,0 
R:PUT{CX.CY)-CCX+5,CY+5) ,C,OB 
230 A3-INKEY9 
240 IF INKEY3-"* THEN 240 
250 CLS: PRINT §33 , "ALCANCE-" ! IN 
TtP*P*100/(18*18*.4))/100 
260 PRINT f 97, -VELOCIDADE INICI 
JU.-";INT{ABS(P*100/18>)/10 
270 PRINT t225,'gUER RECOMECAR 
(S/N) ?■ 

280 AS-INKEYS;IF ASO'S" AND A8 
O-M- THEN 280 

290 IF A9-'S" THEN SCREEN 1,0:G 
OTO 100 
300 CLS: END 
500 IF CX-BX+2 AND CY-BY+2 THEN 

RETURN 
510 P-1 
520 P-2SS AND (P+2):POKE 345,25 

S 

530 LINS(P,0)-(P+2.6) ,PSET.8F:L 

INE{P+4,0)- (255,6) . PRESET, BF 

540 SOUND P,1:IF PEEK (345) -247 

TREK 520 

550 LINE(18.58)-<230.170) ,PRE8E 

T,BF 

560 DX-CX-BX-2:DY-CY-3-BY 

570 V-P/lB:SQ-SQBtDX*DX+DY«DY) 



5B0 BX"BX+4:BY-BY+5;T-1 

600 PSET(BX4.5,BV+.5,3) 

610 VX-V*DX/3Q:UY-U*DY/3Q 

620 BX-BX+UX*T-gaH(VX)«.l*T*T:B 

Y-BY+UY*T-SON (VY) * . 1*T*T 

630 V-U-.1:1F ABS{W)<.1 THEN 70 



650 IF BX<18 THEN DX--DX;BX-36- 

BX: SOUND 5,1 

660 IF BX>230 THEN DX— DX:BX-46 

0-BX: SOUND 5,1 

670 IF BY<5e THEN DY--DY; BY-116 

-BY: SOUND 5.1 

680 IF BYM70 THEN DY— DY;BY-34 

0-BY: SOUND 5,1 

690 GOTO 600 

7O0 BX-BX-4:BY-BY-5 

710 IF BX<ie THEN BX-18 

720 IF BX>221 THEN BX-22I 

730 IF BY<58 THEN BY-SB 

740 IF BY>160 THEN BY-160 

750 RETURN 



m 



]0 CLS: COLOR 15 , 15 . 15 : SCREEN 2. 



15 BX=123:BY-100:CX»I23:CY-100: 

NX=CX:Ny=CY 

20 RESTOBEiFOR I - 1 TO S 

30 READ A:S13-SIS+CHB$(A) :NEXT 

40 FOR I=-l TO 6 

50 READ B:S2S-S2S-t-CHHS<8) :NEXT 

60 SPRITES(0)-=S1S 

70 SPRITES <) )=S2$ 

80 LINE(ie, 38) - (230, 170) ,12,BF 

100 PUTSPRITEO. (BX.BY) ,8 

110 PUTSPRITEl. (CX.CY) .1.S 

120 KS-INKEY3:IF KS-"'THEN 120 

130 IF K$-CHR$(28) THEN NX'NX-t'2 

iGOTO 190 

140 IF KS«CHRS(29) THEN NX-NX-2 

■GOTO 19 

150 IF KS=CHUS(30) THEN NY-NY- 2 

:C,OTO 190 

160 IF KS-CHRS(3]) THEN NY-NY+2 

:GOTO 190 

170 IF KS-CHBS(32) THEN GOSUB 5 

00: GOTO 2 20 

160 GOTO 120 

190 IF NX<180B NX>225 OR NY<,)B 

OH NY>166 THEN NX*CX : MY-CY !GOT0 

120 
200 CX-NX:CV=NY:GOTO 100 
Z20 K3"=INKEYS:TF K3 = ""THEN220 
230 COLOR 15,1,4 :SCREEN0: LOCATE 

fi . 5 :PaiNT"Oiatanc:ia percorrlda 
: - ; INT(P"P*100/ (18*18* .4) )/100 
240 LOCATE 5 . 8 : PftlNT'Velocidade 

inicial: " ; INKABS {P*100/18) f/ 
100 

250 LOCATE 5, 11 :PRINT"Outra vez 
? (S/N)" 

260 K$-INKEYS:IF KSO'S" AND KS 
<>"N" THEN 260 

270 IF K3-"S' THEN C0L0R15,15,1 
"i: SCREEN 2,0; GOTO 20 ELSE CLS: 
END 

500 IF CX-BX AND CY-BY THEN BET 
URN 

510 P=l 

520 P■=^55AND(P■^2) 
S30 LINE(P,0)-{P+2.6) ,6,BF:LINE 
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iP+4,0)-{255,6) ,a5,BF 

S40 IF INKEYS'C>CHRSC32) THEN 52 



560 DX=CX-BXtD¥=CY-BY 

570 V = P/lH:SQ-SQH(DX«DX+D1f*D¥) 

580 T=l 

600 PSET(BX+4 . 5,BV + 5-5} , 15 

605 pmsPKTTEO , fBX.BY) ,8 

^10 VX=y*DX/SQ:V¥=V*DY/SQ 

«aO BX-BX+VX*T-SON{WX)«. 1«T"T:B 

1-By+UT*T-SGN (Vlf ) * . 1*T*T 

630 V-V-.1:IF ABS (V)< . lTiiEN700 

650 IFBX<18THENDX--DX:BX-42-BX 

660 IFBX>222THENDX--DX:BX-444-a 

X 

670 IFBYOBTHENDTf— Dif:BTr-76-Bir 

680 lFBY>162TBKMDY--DY:BY-324'-B 

Y 

690 GOTO 600 

?00 RETURN 

1000 DATA 0,28,62,127,127.127.6 

2,28 

1010 DATA 0,0,8,8,62,8,8,0 



60 MEXT : POKE 232,00: POKE 23 


100 


3,03 


240 PRINT ; PRINT "MAIS UMA VE 


80 BX ■ 123: BY - 110 :CX - BX : CY 


Z? "; 


' BY: NX - CX:NY - CY:P - 1 


2 50 GET A5-. IF AS < > "S" AND 


90 HCOLOB- 0: FOR I - 30 TO 15 


AS < > -N" THEN 250 


0: HPLOT 30.1 TO 250,1: NEXT ; 


260 IF AS - "S- THEN HOME : G 


HCOLOR- 3 


OTO 90 


100 SCALE- 1; ROT- 0: DRAW 2 A 


2 70 TEXT : HOME : END 


T CX + 4,CY + 4 


500 IF CX - BX AND CY - BY THE 


110 DRAW 1 AT BX.BY 


N RETURN 


120 GET A$ 


SIO K - 2: HCOLOR- K 


130 IF AS - "K" THEN NX - NX + 


520 P - P + K; IF P - 255 THEN 


2; GOTO 190 


K - - 2: HCOLOR^ 1 


HO IF AS - "J" THEN NX ■= NX - 


525 IF P - 1 THEN 510 


2: GOTO 190 


530 HPLOT P - 1.0 TO P - 1,8: 


150 IF A3 - "I" THEN NY - NY - 


HPLOT P,0 TO P. 8 


2: GOTO 190 


540 GET A3: IF A3 - CHR3 (32) 


160 IF A3 - 'M- THEN NY - NY + 


THEN 520 



CHBS (32) THEN G 



250 OR 
150 THEN NX • C 



m\^ 



10 HONE : HGR : HCOLOR- 1 : HPL 

OT 0,0: CALL 62454 

30 FOR I - 1 TO 65 

40 READ A 

50 POKE 767 + I.A 



2: GOTO 190 
170 IF AS - 
OSUB 5O0 : GOTO 220 
180 GOTO 120 
190 IF NX < 30 OB NX > 
NY < 30 OR NY > 
X:NY - CY: GOTO 120 
200 GOSUB 7 50 

210 CX = NX:CY - NY: GOTO 100 
220 WTAB 21: PRINT "DISTANCIA 
PEUCORRIDA: "; INT (P * P * 100 

/ {18 « 18 * -4)> / 100 
230 PRINT "UELOCIDADE INICIAL: 

■; INT f ABS (P * 100 / 18)) / 



560 DX = CX - BX:DY - CY - BY 
570 V - P / 18:SQ - SQR (DX * 
DX + DY * Dt) 
580 T - 1 

DRAW 2 AT CX + 4,CY + 4: D 
1 AT BX.BY 



600 
RAW 
610 VX - 



Y / 

615 



V * DX 

3Q 
HPLOT BX + 



/ SQ:VY = V * D 



- { SGN (VX) 
* 6).BY + 4 - ( SGN (UY) « 6) 
620 MX - BX + VX * T - SGN (VX 
) * .1 * 'f * T:MY » BY + VY « T 

- SGN (VY) « .1 « T « T: 
630 V = V - .1: IF ABS <V) < . 



WGRAMACAO BASIC 




1 THEN 700 

650 IF MX < 30 THEN DX = - DX 

: MX = 64 - MX 

660 IF MX > 240 THEN DX - - D 

X:MX = 480 - MX 

6 70 IF MY < 30 THEN D¥ - - DY 
:MY - 64 - MV 

680 IF MY > 140 THEN DY » - D 
Y:MY - 2B0 - MY 

690 G03UB 750 :BX - MX : BY - MY: 
GOTO 600 
700 RETURN 

7 50 HCOLOB= 0: DRAW 1 AT BX , BY 
: DHAH 2 At CX + 4.CY + 4: HCOL 
OB- 3: RETURN 

1000 DATA 2,0,6,0,45,0,9,45,4 

5,21,63,63.63,2 3,45,45,45,45,62 

,63,63,63,55.45,45,45,45,62.63, 

63,63,55.45,45,45,45.30,63,63.6 

3,14.45,45,150,0 

1010 DATA 36.36,55,54,62.63,5 

5,45.45,45.4 5.37,63.191.50,54,3 

9.36.4.0 

Para o TK-2000, faga as seguintes 
modifica«;oes no programa anterior: 

10 HOME : HGR : HCOLOB" 1 
15 FOB I - 1 TO 160: HPLOT l.I 
TO 2 79,1: NEXT 

O programa desenha um retangulo 
no meio da tela: esta e a area (ou a me- 
sa) na qua! o objeto pode se mover. 



UMA MIRA M6VEL 



No meio do retangulo ha uma bola 
e, tambem, um cursor que pode estar es- 
condido atras dela. No Spectrum, pres- 
sione a tecla Q para move-lo para cima, 
A para baixo, O para a esquerda e P pa- 
ra a djrdta; no TRS-Color e no MSX, 
use as setas para a movimentafao; no 
Apple e no TK-2000, lecle I para cima, 
M para baixo, J para a esquerda e K pa- 
ra a direjta. O cursor e representado por 
uma cru7., que se move por toda a drea 
disponi'vel para indicar a direi^ao de mo- 
vimenio da bola. Quando tiver posicio- 
nando o cursor no lugar desejado, pres- 
sione a barra de espa^os (ou a tecla 
SPACE, no Spectrum). 



Uma linha horizontal surgira no to- 
po da tela, aumentando a medida que 
se mantem a barra de espagos apertada. 
O tamanho da linha mostra a forpa com 
que a bola sera impulsionada: quanto 
maior a linha, maior a fortja, 

Assim que se solta a barra de espa- 
qos, o computador Hmpa o retangulo e 
desenha uma serie de pontes que mos- 
tram a trajetoria da bola. Os pontos fi- 
cam mais prdximos quando a bola per- 
de velocidade. No Apple, para colocar 
a bola em movimento, e necessario pres- 
sionar uma tecla qualquer apds ler de- 
finido a for^a. 

Tente variar a posiipao do cursor e 
usar diferentes velocidades na bola, pa- 
ra verificar o efeito. 



COMO FUNCIONA 



Aqui, OS principios da reflexio estao 
muito claros. Toda vez que a bola bate 
contra uma borda, ela rebate no mesmo 
angulo com que chegou. Isso acontece 
em qualquer lado da mesa. 

O programa cometja com a iniciali- 
zagao de algumas variiveis e com a es- 
colha do modo grarico adequado e das 
cores. O do TRS-Color tambem dimen- 
siona tres vetores, define dois UDG (Ca- 
racteres Def inidos pelo Usuario) e os co- 
loca nos vetores {um para a bola, um pa- 
ra a cruz e outro em branco). Nos pro- 
gramas do Apple e do MSX, usam-se 
duas formas predefinidas, uma para a 
bola e outra para a cruz. No MSX, isto 
i reito com Sprites, que sao muito fa- 
ceis de definir e tern a vantagem de nao 
apagar outros desenhos da tela que es- 
tejam em piano diferente. No Apple, 
utiliza-se uma tabela de formas. Nao e 
tarefa simples montar uma delas sem o 
auxilio de um editor, mas o efeito final 
compensa. Para animar a figura, serd 
precise ter alguns cuidado-s {como apa- 
gar o desenho anterior). 

As varidveis definidas sao BX, BY 
(coordenadas X e Y para a bola); CX, 



CY (coordenadas para a cruz) e NX e 
NY (novas coordenadas para a cruz). 
NX e NY sao as varidveis usadas para 
mover a cruz peia tela. 

Depois desses procedi memos iniciais, 
um retangulo e desenhado na tela e a ro- 
tina INKEY$ ou GET. que Ihe permite 
mover o cursor, entra em aijao. A roti- 
na do TRS-Color usa PEEK nas posi- 
(foes de teclado, para possibiliiar a au- 
to- repel ii;;ao das teclas. 

Alem de verificar a dire(;ao em que 
o cursor se move, a roiina checa tam- 
bem se alguma tecla esia sendo pressio- 
nada. Caso haja pressao sobre a barra 
de espagos, o computador vai para a 
sub-rotina 500, que verifica a posigao do 
cursor: se ele esta sobre a bola, a for?a 
e imediatamente zerada e o computador 
retoma da sub-rotina. O TRS-Color nao 
precisa especificar P (a variavel para for- 
<;a) como 0, ja que seu BASIC assume 
este valor para qualquer variavel, a nao 
ser que se determine algum outro. 

Todo esse procedimento tern a fina- 
lidade de cvitar a ocorrencia de erros, 
pois, quando o cursor esta sobre a bo- 
la, o computador nao sabe em qual di- 
regao deve move-la. 

Se cursor esta numa posigao vdli- 
da, o fator for(;a e dcfinido como (no 
Spectrum) ou 1 (nos outros micros). Is- 
so ocorre no momento em que a barra 
horizontal e apagada. 



TACADAS MAIS FORTES 



A varidvel P i incrementada (tern seu 
valor aumentado) de 2, cada vez que o 
computador deiecta uma pressao na 
barra de espagos. Quando atinge o va- 
lor 255, P volta a ser — e a linha hori- 
zontal, que cresce com P, e novameme 
apagada. O computador permanece nes- 
se circulo vicioso atd que a barra de es- 
pagos se libere. No Apple, em vez da 
forga zerar ao atingir o maximo, ela vai 
diminuindo aos poucos. 




Aasim que a Loadis:ao da liiiha 540 
deLxa de scr verdadeira — ou seja, quati- 
do a barra de espa(;os e liberada — o 
computador continua a execuijao do 
programa que, neste ponto, varia um 
pouco de uma maquina para outra. O 
Spectrum e o TRS-Color apagam a bo- 
ia e tra^am sua trajetoria, O MSX e o 
Apple mostrani a bola em tnovimenio, 
deixando um rastro em sua trajetoria. 
Mais adiante, explicaremos como fun- 
ciona est a parte do programa. 

Ao terminar os calculos e o desenho 
do caminho da bola, o computador re- 
torna para a iinha 170. Em seguida, vai 
para a Iinha 300, no Spectrum, ou 220 
nos outros micros. 

O TRS-Color coloca a bola em sua 
nova posifSo e a cruz no mesmo lugar 
onde ela estava. As declara^oes OR que 
apareccm no fim de cada PUT evitam 
que a bola ou a cruz apaguem alguma 
coisa (pontes) da tela. 

O computador espera que uma tccla 
seja pressionada para, entao, apagar a 
lelae mostrar a velocidade inicial da bo- 
la e a distancia percorrida. Em seguida, 
oferece mais uma tentativa. O Apple, 
novamente, apresenta uma dil'erenga: a 
tela nao e apagada, pois as informa<;6es 
sio mostradas na janela de texto (ulti- 
mas quatro linhas) da tela de alta re- 
solucao. 

Como mostra a figura da pdgina 653, 
para prever a dire?lo que um objeto to- 
mara apos bater numa borda, basta es- 
tudar o angulo com que atingiu a pare- 
de. Infelizmente, os computadores nao 
dispoem de nenhum recurso para medir 
angulos dirciamente, precisando recor- 
rer a uma equa?ao. 



CALCULO DAS COORDENADAS 



Cada um dos programas define va- 
riaveis para as posifoes da bola e da cruz 
(ha, de fato, dois con juntos de coorde- 
nadas para a cruz, mas apenas um e usa- 
do aqui). O computador necessiia de um 



ouiro coiijunto — que conteiii a difcrcn- 
?a entre as posit;oes da cruz e da boia. 
De posse desses dados, pode calcular a 
dire^ao da bola. 

As variaveis que indicam a diferenga 
entre as posigoes sao DX e 1)Y, calcu- 
ladas na Iinha 560. 

O programa utiliza muitas outras va- 
riaveis para os calculos. O valor de V, 
variave! usada para a velocidade inicial, 
e uma proporgao da forga que foi esco- 
Ihida para impulsionar a bola (o vaior 
exato dcsta propor^ao varia um pouco 
de um micro para outro. em razao de 
diferengas da tela). 



RAtZES QUADRAOAS 



A variavel SQ iguala-se a raiz quadra- 
da de (DX*DX-(-DY*DV). Esta e, na 
realidade, a distancia entre a cruz e a bo- 
la, distancia que e calculada por meio 
do teorema de Pitdgoras, que estabele- 
ce que, para qualqucr triangulo retan- 
gulo, o quadrado da hipoienusa (como 
e denominado o lado maior do triangu- 
lo) e igual a .soma dos quadrados dos 
catetos {nome que recebem os outros 
dois lados). 

A variavel T corresponde ao intervalo 
de tempo usado nas equagoes. Se seu va- 
lor for maior, o programa funcionara 
mais rapidamente, porem, menos pon- 
tes serao tragados: como a razao entre 
o tempo e a distancia fica menor, o nti- 
mero de pontes tambem diminui. Assim 
que se determina o intervaio de tempo, 
o computador comega a tragar os pon- 
tes da trajetoria. 

Em seguida, o programa utiliza mais 
duas variiveis para OS calculo.?. Sao os 
valorcs para a velocidade, nos eixos X 
e Y (ou horizontal e vertical). Em ou- 
tra.s palavras, VX cont^m a velocidade 
com que a bola se desloca horizontal- 
mentc e VY, a veSocidade de seu deslo- 
camento vertical- As duas variaveis po- 
dem contar valores negatives: nesse ca- 
so, a bola se desloca da direita para a 




UTILIZAQAO DE MODELOS 
DINAMICOS 

Para quern nSo gosta muito de ma- 
tem^tlca ou fisica, pode parecer que os 
programas deste artigo nao tem mui- 
tas aplica?6es prdticas. Na verdade, es- 
tas sao numerosfssimas. 

Qualquer pessoa que tenha a aspi- 
raqao de se tornar um programador 
competente — sobretudo nas Sreas de 
jogos e programas educativos — pre- 
cisa conhecer bem o mecanismo de si- 
mula^ao de modetos dinSmicos. 

Veja, abaixo, alguns exemplos do 
que voce pode fazer usando como ba- 
se OS programas deste artigo: 

• um programa que simule um jogo de 
bilhar. Com o joystick ou o teclado, o 
jogador orienta o angulo e a forpa de 
batida de um taco. 

" um jogo de fitperama. 

• um programa educative que mostre 
como as moi^culas se deslocam em um 
recipiente, coiidindo continuamente 
omas com as outras, Quanto maior a 
densidade da materia (por exempio, 
densidade de gSs), maior o numero de 
colisoes. Colisoes geram calor; assim, 
a temperatura do gSs pode ser estima- 
da a partir de sua densidade ou pres- 
sao (esta 6 uma das leis fundamentals 
da ffsicaj. 

• um programa educativo para de- 
monstrar o efeito de diferentes coefi- 
cientes de atrito, ou diferentes valores 
da forga de gravidade sobre a movi- 
mentagao livre de uma bola. 



esquerda (para VX) ou de baixo para ci- 
ma (para VY). 

O valor dessas duas variaveis e cal- 
culado, como se pode verificar na Iinha 
610, multiplicando-se a velocidade (V) 
pela variavel DX (ou DY) e dividindo-se 
o resuttado pela distancia enlre o cen- 
tro da bola e o centre da cruz (variavel 
SQ). 





Como calcular a velocidade da bola 
programa recorre a v^rias equa- 
poes para calcular a nova posipao da 
boJs e sua velocidade. As equaq:des do 
diagrama sepsram a velocidade em 
suas componentes, com a projeqao nos 
etxos X e Y- computador resolve es- 
sas duas equaqoes para cada posigao 
da trajetdria da bola, por^m, sob uma 
forma um pouco diferente da que foi 
apresentada aqui. As constantes 
iXc-Xbl e(vc-Xb) sao substituidos 
no programa por DX e DY. Com elas, 
o computador calcula entao a nova ve- 
locidade a cada ponto, levando em con- 
siderapao a desaceleracao, 

Como mostra a f6rmula, ele multi- 
plies a diferenga entre as coordenadas 
X e Y da bola e do cursor pela veloci- 
dade real, e divide o resultado pela li- 
nha de baixo da razao: a raiz quadrada 
da diferenqrs entre as coordenadas X da 



^(xc -xb) + (yc- yb) 




w 







vel X 



V Otc-xb) 



J(xc-xbl^ + (yc - yb) 



bola e do cursor etevada ao quadrado, 
somada h diferen^a das coordenadas 
Y da bola e do cursor elevada ao 
quadrado. 

As duas equagoes seguintes calcu- 
lam as novas coordenadas X e Y. Veja: 

Xn = Xb-^Vx*T-0.01*T 
Yn = Yn+Vy*T-0.01'T 

A nova posigao da bola ^ catculada 
adicionando-sB um numero h antiga 
coordenada X e Y. Para calcular o nu- 
fnero a ser adicionado, mu!liplica-se a 
velocidade no eixo X ou Y pelo tempo 
e, entao, subtrai-se uma pequena fra- 
pao de T ao quadrado, para levar em 
conta a desacelerapao, 

A velocidade 6 diminui'da de uma pe- 
quena quantidade (0.1) e, antes de se 
reiniciar o loop, marca-se a nova posi- 
p§o da bola. 



A NOVA POSICAO DA BOLA 



Neste porno, o seu micro jd dispoe de 
todos OS valores necessaries para calcu- 
lar a nova posipao da bola. A linha 620 
faz esse cAlculo para os novos valores de 
BX e BY. 

O calculo para cada uma das coor- 
denadas e o seguinte: 

BX - BX+VX*T-3J*3(yX>*.l*T*T 

Embora pareija complicado, nao e. A 
formula adiciona um valor a BX (ou 
BY) para encontrar a nova coordenada, 
O numero pode ser negativo, dependen- 
do da direpao em que a boia se dcslo- 
que. Em varies pontos desta parte do 
programa para o Apple, voce iri encon- 
trar as variaveis MX e MY em lugar da.<; 
variaveis BX c BY, porquc o computa- 
dor precisa das coordenadas antigas da 
bola para poder apaga-la, antes de 
desenha-las em sua nova posiijao. 

O primeiro passo e adicionar a BX a 
distancla que a bola percorre. Esta dis- 
t^ncia e avaliada em dois est^gios. Ini- 
cialmente, multiplica-se a velocidade pe- 
lo intervalo de tempo. Lembre-se de que 
a velocidade nada mais e do que a dis- 
tancia percorrida dividida pelo tempo 
gasto. Assim, para calcular a distancia, 
basta multiplicar a velocidade pelo 
tempo. 

Enfelizmente, o programa precisa fa- 
zer um ajuste, pots as velocidades dadas 
pelas variaveis VX e VY nao sao iguais 



a velocidade real da bola em movimcn- 
to — cada uma delas corresponde a ve- 
locidade de deslocamento etn um eixo 
(horizontal ou vertical). Isso explica o 
estranho calculo no fim da formula, en- 
volvendo o sinaJ de VX e uma fra<;ao de 
T ao quadrado. 

A fun^ao SGN fornece o resultado 1 , 
-1 ou 0, conforme o argumento (nume- 
ro dentro dos parenieses) seja positive, 
negativo ou zero. E!a e usada aqui para 
que se possa, empregando a mesma for- 
mula, subtrair o valor ,1*T*T do termo 
anterior, no caso da velocidade no eixo 
ser negativa, ou soma-lo, no caso da ve- 
locidade ser positiva. 

O resultado ap6s calcutos desta linha 
corresponde a nova coordenada (para o 
eixo X ou Y) da bola. O ciilculo c feito 
para os dois eixos. 



COMO DESACEL£RAR 



O programa diminui a velocidade de 
0. ] e checa se ela € menor que 0. 1 , Em 
caso afirmativo, o micro vai para o fim 
da rotina, que ^ explicado abaixo. Em 
caso negativo, quatro linhas sao usadas 
para verificar se alguma das bordas foi 
atingida no caminho para 'a nova posi- 
V'ao (utilizam-se quatro rF,,.THEN pa- 
ra checar se as novas coordenadas estao 
caindo fora dos limites da mesa). Se a 
bola bate contra uma das bordas, o va- 
lor da variavel DX (ou entao DY, con- 
forme a borda atingida tenha sido a su- 



perior ou a inferior) e igualado a menos 
DX. 

Os valores de BX e BY tambem sao 
alterados, de modo a colocar a bola na 
posipao correta. Os numeros subtraidos 
das coordenadas antigas sao o dobro 
dos limites da mesa. Assim, a maior 
coordenada da mesa no Spectrum e 127, 
o que significa que, toda vez que a bola 
encontra a borda superior, BX fica 
254-BX (254 e o dobro de 127). 

Depois das checagens, o computador 
calcula o proximo ponto. O fim da ro- 
tina, alcan?ado quando a velocidade se 
torna menor que 0.1, verifica se a bola 
nao vai ser desenhada sobre a borda, an- 
tes de desenhd-la na tela. 

Algumas das coordenadas usadas 
nesta verificacao sao diferentes daque- 
las usadas na anterior, porque o que vai 
ser desenliado e uma bola e nao um pon- 
to — e, ^ claro, a bola ocupa muito mais 
espafo. Assim. as coordenadas necessi- 
tam de algum ajuste. 



sugestOes 



Voce pode dar varies usos ao progra- 
ma aqui apresentado. Uma ideia e 
transforma-lo em um jogo de snooker. 
Se esta for sua optjao, bastara acrescen- 
tar algumas caijapas, para que as bolas 
caiam dentro, e uma rotina de contagem 
de pontos. Outra possibiiidade e apro- 
veitar esse programa para um jogo de 
squash, ou algo do lipo. 
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BLER 



MODIFICACOES QUE DEVEM SER 



FEITAS NO PROGRAMA DO MSX 



fmk O TR: 



CARACTERISTICAS 




DOS PROGRAMAS ASSEMBLY 



FUNCIONAMENTO DO ASSEMBLER 



Com algumas modifica^oes, o programa 
Assembler que apresentamos 
anteriormente para o MSX servird 
tamb^m para os usu^rpos do TRS-80. 
Veja aqui as adaptagoes necessaries. 



Traduzir mnemonicos para c6digo de 
mdquina certamente e uma tarefa bas- 
lante cansadva, E, alem de trabalhoso, 
colocar os c6digos usando o moniior de 
seu TRS-80 pode dar origem a muitos 
erros — fatais, quando se trata de !in- 
guagem de maquina. 

Neste ariigo, voce veri como utilizar 
computador para fazer esse servii;o. 
Com algumas modificafoes, o progra- 
ma que publicamos anteriormente para 
o MSX servira lambem para o TRS-80. 
Ele se destina a sistemas com 48K de me- 
radria, sendo que as fun<;oes de grava- 
fao e leitura dos programas em lingua- 
gem Assembly so funcionam em siste- 
mas com disquetes. As outras fungoes 
do Assembler funcionarao normaimente 
em sistemas com I'lta casseie, 

Como o programa foi escrito em BA- 
SIC, ele e urn tanto lento, levando aJguns 
minutos para montar urn programa Ion- 
go. Cotitudo, funciona muito bem. 

Digite Assembler para o MSX apre- 
sentado no artigo da pagina 401, com 
as seguimes modificacoes: 



□ 



5000 CLS:PRINTe468,"U» inatante 
, por £avor";CLEAR SO0:DIM KSd 
10] .KtllO) ,M(110) :H3-"012345678 
9ABCDEF' :GS-"0123456789abcdef " 
5Z00 CLS :PRINT«86, "ASSEMBLER" :P 
RINT:PRINTTftB{16)"{c) carre^iar 
do dlBCo" : PRINT: PRIMTTAB{16)- C 
g) qravar no disco" : PRINT; PRIN 
TTAB(16)"Ce) editar linha"':PRI 
NT:PRINTTAB{16)"(iii) montar": PR 
INT:PRINTTAB(16) " (a) apagar li 
nha" : PRINT :PRINTTAB( 16) "(1) li 

atar" 

5210 AS-INKEYS:IFA$-""THEN5210 

5220 JJ«INSTIl("cge»al" ,AS) 

5230 IFJJ-OTHENPRINT"<"AS"> 777 

• : FORJ= 1TO50O : NEXT : G0T05 200 
5240 CLS:ONJJGOSUB10420, 10450,1 



0490 , 5290 .10 710. 10760 

52S0 PRINT: PRIMT"Qualquer tecla 

para continuar" 
5260 AS-INKE¥S:IFA5-""THEN5260 
5270 GOTO 5200 

10420 INPUT"None do arqulvo " ;A 
HS 

10430 CLS:PBINT^465,*Carregando 
programa fonte" 
10440 0PEN"I-,1 ,ASS:INPUT|1.N:F 
0RJ=1T0N : INPUTtl .T3 (J) i NEXT : CLO 
SEl : RETURN 

10450 INPUT'None do arquivo ' jA 
R$ 

10460 CL3:PRINTe466. "Gravando p 
roqraaa fonte' 

10470 0PEN"0".l,AH3:PRINTIl,N:F 
OHJ-lTON;PRINT|l,CHRS(34) jTStJ) 
;CHR${34) : NEXT : CLOSEl ; RETURN 
10490 PRINT"Qual o nunero da li 
nha (Bultiplo de 10) "i 
10500 INPUTK;CLS 

10510 K2-K/10: IFK2>NTHENK2=N+1: 
N-N+1 :TS (K2) -"' : PRINTe960, "" 
10520 IFK2<.1THENK2=.1 
10530 IFK2-INT(K2)THEN10550 
10540 K2=lNT(K2)+X:FOH K3-NTOK2 
-lSTEP-1 :T$(K3+1)-TS(K3) :NEXT:N 
■■N+1:T3(K2)-"" 

1O5S0 P1-16326:P0-P1 

10560 PRrNTe896.K:TAB(6)TS{K2)+ 

STRINGS (20, 32) : P9-P0+LEN CIS (K2) 

) 

10570 IFPKPOTHENPl-PO 

10580 IFPl>P9THENPl=Pl-l 

i0590 FOR I--1 TO 1:P0KE Pl+I,3 

Z-(I-0}*99:NEXT I 

10600 P7-0:AS-INKEY$:IFAS-"*THE 

N10600 

10610 IFAS-CHR5{13)THEN10700 

10615 IFAS-CHR$(27)THENRETUHN 

10620 IFAS-CHF$C9)THENP1-P1+1:0 

0TO10580 

10630 IFA$-CHH$(8)TRENPl-Pl-l:G 

OTO10570 

10640 IFAS-CHRS(10)THENAS-"':GO 

T010670 

10650 IFA$-CHRS(91)THENAS-" "+« 

IDS(TSCK2) ,P1-P0+1,1) :P7 — 1:G0T 

010670 

10660 IFA3<" "THEN10600 

10670 IFPl-P0+l>LEN(TS(K2))THEN 

TS(K2)-LEFTSCT3(K2) ,P1-P0)+AS:G 

OT010690 

10680 T3{K2)=LEFTS(TS(K2) ,P1-P0 



)+AS+RIGBTStTS(K2> , LEN (T$ (K2) ) " 

Pl+PO-1) 

10690 Pl-Pl-(LEN(AS)>0)+P7:GOT0 

10560 

10700 PRINTe64,"":K-K+10;GOTO 1 

0510 

10710 IFN-OTHENCLS;PRINT"Nada a 

apagar": RETURN 
10720 CLS:PRINT"Qual o nu«ero d 
a IVnha (iiultiplo de 10) "; 
10730 INPUTK:K2-K/10 
10740 IFK2>NORK2<10RK2<>INT{K2) 
THENPRlNT"Eata linha nao exlste 
■ -RETURN 

10750 K-K2;FORK3-K2TON;TS{K3)-T 
S CK3+1 ) : NEXT : N^Nl : PRINT§190 . K« 
10;- " ;T$<K) : RETURN 
10760 IFN-OTHENPHINT'Nada a llo 
tar" ; RETURN 
10770 PBINT'Quaia oh nuaeroa da 

priaeira e da ultlsa linha (au 
Itjploa de 10) ': 

10780 1NPUTK,K2:K-INT(K) :K2-INT 
(K2) :K1-K/10:K2-k2/10 
10790 IFK2>NTHENK2"N 
10800 IFKKlTHENKl-1 
lOBlO IFK2<K1ANDK2»NTHENRETURN 
10820 IFK2<KlTHENCLS:PRItJT'Nu»e 
roB de linha inval idos' tGOTO 10 
770 

10830 CLS:PRINTei92, ;F0BK3-K1T0 
K2:PRINTK3*10- "TSCK3):NEXT 
10840 RETURN 

Algumas das linhas do programa — 
a 5450 e a 5750. por exempio — sao 
muito longas e podem dar problemas no 
momento de digiiaijao. Para evitar que 
isso ocorra, digite as linhas exatamenie 
como estao irapressas, sem incluir espa- 
90s entre os comandos. Se mesmo asskm 
o computador nao aceitar uma linha de- 
vido ao seu lamanho, apene ENTER, fa- 
zendo o comeijo da linha ir para a me- 
m6ria. Em seguida, edite a linha usan- 
do o comando X da edipao. 

Observe que nas linhas 5030, 5050, 
5390 e 5500 encontram-se quatro carac- 
teres em branco entre aspas; nas linhas 
5660 e 5770, tres. 

Antes de montar programa, prote- 
ja o topo da memoria do computador 
para ali colocar os codigos. Faga-o lo- 
go que ligar a maquina — ou ativar o 
BASIC — , respondendo adequadamen- K^ 
te a pergunta "Mem6ria usada?". P 



COMO USAfl PROGRAMA 



Ao executar o Assembler, urn menu 
sera exibido na tela. Para digitar um 
programa era Assembly tecle "e". No 
TRS-80, i neccssario prcssionar ao mes- 
mo tempo as leclas SHIFT e @ (arro- 
ba) para usar as leiras miniisculas, O 
computador perguntara, eniao, o mime- 
ro da linha. Cada instrutao deve ficar 
em uma linha numerada, como aconte- 
ce tambem no BASIC. Os numeros das 
linhas precisam sempre ser multiples dc 
10 e apenas um mnemonico Assembly 
com seu-s respectivos operandos deve ser 
introduzido em cada uma delas. 

A primeira linha de um programa em 
Assembly espccifica a origem ou ende- 
re^o inicial do programa em codigo. Is- 
to e feito pelo comando org, de modo 




que & um Disassembler? 

Como o pr6prio nome indica, o DJ- 
sassembler executa uma fungao opos- 
ta ao Assembler — ou seja, enquanto 
o Assembler 6 um programa que traduz 
c6dfgos mnemonicos (simbblicos) em 
c6digo de mSquina (numeros bindrios, 
diretamente executSveis pela UCP), o 
Disassembler reconstitui o programa 
em linguagem Assembly. 

Como funciona umi programa Disas- 
sembler? Da mesma maneira que no 
programa Assembler listado neste ar- 
tigo, a base do processo de tradugeo 
§ uma tabela. Sd que o processo de 
desmontagem (disassembler! 6 mais 
complexo do que o de montagem, jS 
que diversas instrupoes elementares do 
microprocessador Z-80 requerem dois 
ou mais bytes para serem totalmente 
armazenadas (ou seja, c6digo de ope- 
ragao, mais operandos ou argumen- 
I tosl. Como o significado de um deter- 
minado byte na mem6rta 6 diferente 
conforme o ponto da Instrugao em que 
ele se encontra, a ordem de leitura do 
programa em c6digo de miquina 6 mui- 
to importar^te para o Disassembler. 
Uma umca faiha de imerpreta^ao de 
um byte invalidar^ toda a desmonta- 
gem at6 o final do programa. 

O Disassembler nao 6 um programa 
fScii de ser desenvolvido, principalmen- 
te em BASIC Mas existem diversos 
programas Disassembler comercial- 
mente disponiveis para o TRS-SO. 



que a primeira linha de seu programa fi- 
cara mais ou menos assim: 

10 org -10000 

Se OS mnemonicos nao forcm escritos 
em letras miniisculas e os numeros nao 
C-stiverem todos situados enire - 32768 
e 32767, havcra erro na execugao do 
Assembler. 

Os mnemonicos empregados seguem 
o padrao Z-80, com exce^ao de ret. Usa- 
do sozinho, este comando e accito nor- 
malmente. Porem, nos casos de retor- 
no condicional — ret nz, por exemplo 
— devemos usar rts em seu lugar. 

Numeros hexadecimais precisam ser 
precedidos do sinal $; numeros binaries, 
do sinal %. Numeros que nao tenham 
sinal na freme serao intcrpretados co- 
mo decimals. 

Qualquer palavra que nao eorrespon- 
da a um mnemonico seri inlerpreiada 
como um rotulo, Evi'ie palavras pareci- 
das ou numeros, 

Programas Assembly devem terminar 
com end, comando que indica o final da 
listagem. 

Para edilar uma linha — antes de 
apertar ENTER — uiilizam-se as setas 
do teclado: "direita" e "esquerda" mo- 
vem cursor ao longo da linha; "para 
baixo" e usada para inserir e "para ci- 
ma", para apagar caracteres. A edigao 
das linhas e bem lenta. Muitas vezes, os 
caractere.^ digitados demoram a apare- 
cer no video. 

Para sair do modo de ediijao, pres- 
sione simultaneamente as teclas SHIFT 
e "seta para cima". Elas devem substi- 
tuir o ENTER, pois, se o utilizarmos de- 
pois que tivermos digitado a uilima li- 
nha, uma linha em branco serd incorpo- 
rada a listagem. 

De volta ao menu, pressione "I", pa- 
ra obter uma listagem do programa em 
Assembly na tela. 

Se houve algum erro durante a intro- 
du(;ao do programa, volte ao menu e 
pressione "e"; em seguida, forneta o 
mimero da (inha que deseja mudar. 

Se quiser inserir uma linha entre duas 
ja existentes, digite-a usando um mime- 
ro intermediario, no modo de edigao. 
Quando listar o programa, vera que elc 
foi renumerado e que a nova linha ocu- 
pa lugar certo. Porem, apenas uma li- 
nha pode ser introduzida dessa maneira 
de cada vez. 

Para apagar uma linha, volte ao me- 
nu, tecle "a" e forne^^a o mimero da li- 
nha que quer eliminar. 

Quando estiver saiisfeito com o pro- 
grama Assembly (prograrna-fonte), vol- 
te ao menu e tecle "m" para que ele se- 
ja montado na mem6ria. Ao mesmo 




UTILIZApAO DAS ROT1NAS DA ROM 
NO SEU PROGRAMA EM ASSEMBLER 

Assembler 6 mais elementar do 
que o BASIC e outras linguagens de 
programapao de alto nfvel. No entan- 
to, ^ muito diffcil utilizd-lo, mesmo pa- 
ra 3 programagao de tarefas simples, 
pois ele exige que todas as operapoes 
da UCP, da mem6ri3, e de entrada/sal- 
da sejam especificadas da maneira 
mais minuciosa possfvel. 

Mas existe um recurso capaz de ali- 
viar esse cansatlvo trabalho: chamar ss 
rotinas prontas que existem na mem6- 
rta ROM do computador. 

Os micros da linha TRS-80 dispoem 
de um sistema operacional elementar 
e de um interpretador BASIC, ambos 
gravados na memdria ROM. Esses pro- 
gramas contSm centenas de rotinas de 
operagio do computador, que podem 
ser chamadas pelo comando JSR (des- 
vlo para sub-rotina}, seguido do ende- 
repo onde elas comecam, 

Em geral, cada rotina necessita de 
um ou mais argumentos de entrada, e 
devolve um ou mais argumentos de sa(- 
da. Os registros de intercambio de da- 
dos variam, mas comumente sao os 
pares de registros internos do Z-80, co- 
mo o HL e outros. Para utilizer as roti- 
nas da ROM, voce precisarS, portanto, 
de um "mapa da mina". Existem vS- 
rios livros que fornecem todos os en- 
derepos e argumentos. 



tempo, o computador fomecera uma lis 
lagem dos codigos hexadecimais equiva 
lentes: o programa-objeto. 

Uma vcz montado o programa, o en- 
derego final da rotina em codigo apare- 
cera na tela. Se for deteciado algum er- 
ro durante a montagem, volte ao menu 
e edite a linha correspondente, repetin- 
do, entao, a montagem. 

A opfao "g" do menu grava o 
programa-fonte — os mnemonicos, per- 
lanto — em disco. A opfao "c" faz a 
opera<;ao inversa. 

Para gravar em fita cassete o progra- 
ma que acaba de ser momado, voce de- 
ve teclar RESET. Contudo, nao pressio- 
ne por muito tempo, nem mais de uma 
vez, sob pena de perder o programa- 
objeto e entrar no monitor de linguagem 
de maquina do TRS-80. Nos sistemas 
sem disquete nao ha como gravar o 
programa-fonte em Assembly. 

Para executar o programa em codi- 
go, use as instrupoes DEF USR e A = 
USR(O) (veja artigo da p4g. 88). 



p 


^^^^ftBi 


»-;->. ^ 


syr^.- 








^ UNHA 


FABRICANTE 


MOOELO 
Thor2010 


' FABWCANTE 


MODELO 


PAIS 




Apple 11 + 


Appletronica 


Appletronica 


Ttior2010 


Brasll 


Apple 11 + 


Apple n-»^ 


CCE 


MC-4000Exato 


Apply 


Apply 300 


Brasii 


Sinclair ZX-81 


: Apple 11 + 


CPA 


Absolutus 


CCE 


MC-4000 Exato 


Brasii 


A'pplell + 


Apple 11 + 


CPA 


Polaris 


CPA 


Absolutus 


Brasii 


Apple 11 + 


Apple 11 + 


Digitus 


DGTAP 


CPA 


Polaris 


Brasll 


Apple 11 + 


Apple II + 


Dismac 


D-6100 


Codlmex 


CS-6508 


Brasll 


TRS-Color 


Apple 11 + 


ENIAC 


ENIAC 11 


Digitus 


OGT-100 


Brasll 


TRS-80 Mod.HI 


Apple 11 + 


Franklin 


Franklin 


Digitus 


DGT-1000 


Brasii 


TRS-aO Mod.lli 


Apple 11+ 


Houston 


Houston AP 


Digitus 


DGTAP 


Brasii 


Apple 11 + 


Apple 11 + 


Magnex 


DM II 


Dismac 


O-8000 


Brasll 


TRS-80 Mod. 1 


Apple 11 + 


Maxltronica 


MX2001 


Dismac 


D-8001/2 


Brasii 


TRS-BO Mod. 1 


Apple 11 + 


Maxitronica 


MX-48 


Dismac 


D-8100 


Brasll 


Apple 11 + 


Apple tl+ 


Maxilronjca 


MX-64 


Dynacom 


MX-1600 


Brasll 


TRS-Color 


W Apple 11 + 


Maxitronica 


MaxltronicI 


ENIAC 


ENIAC li 


Brasii 


Apple 11 + 


2 Apple H + 


Microcralt 


CrafllPlus 


Engebras 


AS-1000 


Brasii 


Sinclair ZX-BI 


uV Apple 11+ 


Mllmar 


Apple II Plus 


Filcres 


NEZ-SOOO 


Brasii 


Sinclair ZX-81 


1 Apple 11 + 


Mllmar 


Apple Master 


Franklin 


Franklin 


USA 


Apple 11 + 


': Apple If + 


Milmar 


Apple Senior 


Gradiente 


Expert GPC1 


Brasll 


MSX 


Apple 11 + 


Omega 


MC-400 


Houston 


Houston AP 


Brasii 


Apple 11 + 


Apple 11 + 


Polymax 


Maxxi 


Kemltron 


NajaSOO 


Brasll 


TRS-60 Mod.lli 


Apple 11 + 


Polymax 


Poly Pius 


LNW 


LNW-80 


USA 


TRS-80 Mod. 1 


Apple 11 + 


Spectrum 


MIcroengenhol 


LZ 


Color 64 


Brasii 


TRS-Color 


Apple 11 + 


Spectrum 


Spectrum ed 


Magnex 


DM II 


Brasii 


Apple 11 + 


Apple 11 + 


Su porta 


Venus II 


Maxitronica 


MX-2D01 


Brasii 


Apple 11 + 


Applelt + 


Sycomig 


SIC! 


Maxitronica 


MX-48 


Brasii 


Apple 11 + 


Apple 11 + 


Unltron 


APII 


Maxitronica 


MX-64 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Brasil 


ElppallPlus 


Maxitronica 


Maxitronic 1 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Bras!! 


Elppa Jr. 


Microcraft 


Craft II Plus 


Brasii 


Apple 11 + 


Apple He 


Microcraft 


Craft He 


Microcraft 


Caltlle 


Brasii 


Apple He 


Apple He 


Microdigital 


TK-3000lle 


Microdigital 


TK-3000lle 


Brasii 


Apple Me 


Apple He 


Spectrum 


Microengenholl 


Microdigital 


TK-82C 


Brasll 


Sinclair ZX-81 


USX 


Gradiente 


Expert GPC-1 


Microdigital 


TK-e3 


Brasii 


Sine lair ZX-81 


MSX 


Sharp 


HotbltHB-8000 


Microdigital 


TK-as 


Brasll 


Sinclair ZX-81 


Sinclair Spectrum 


Microdigital 


TK-90X 


Microdigital 


TK-90X 


Brasll 


Sinclair Spectrum 


Sinctaif Spectrum 


Timex 


Timex 2000 


Microdigital 


TKS-800 


Brasf) 


TRS-Color 


Sinclair ZX-81 


Apply 


Apply 300 


Milmar 


Apple II Plus 


Brasll 


Apple n + 


Sinclair ZX-81 


Engebras 


AS-1000 


MHmar 


Apple Master 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Fllcres 


NEZ-8000 


Milmar 


Apple Senior 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-82C 


Multix 


MX-Compacto 


Brasii 


TRS-80 Mod.lV 


Sinclair ZX-81 


Microdigital 


TK-83 


Omega 


MC-400 


Brasll 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-85 


Polymax 


Maxxl 


Brasll 


Apple 11+ ^ 


SinclalrZX-ei 


Prologica 


CP-200 


Polymax 


Poly Plus 


Brasll 


Apple 11 + 


Sinclair ZX-81 


nitas 


Ringo n-470 


Prologica 


CP-200 


Brasii 


Sinclair ZX-SI 


Sinclair ZX-81 


Timex 


Timex 1000 


Prologica 


CP-300 


Brasll 


TRS-aO Mod.lli 


Sinclair ZX81 


Timex 


Timex 1500 


Prologica 


CP-400 


Brasii 


TRS-Color 


TRS-80 IVIod. 1 


Dismac 


D-8000 


Prologica 


CP-500 


Brasii 


TRS-aoMod.lM 


TRS-80 Mod. 1 


Dismac 


D-8001/2 


Ritas 


RlngoR-470 


Brasii 


Sinclair ZX-81 


TR5-80 Mod. 1 


LNW 


LNW-30 


Sltarp 


Hotbit H8-800C 


Brasii 


MSX 


TRS-80 Mod. 1 


Video Genie 


Video Genie 1 


Spectrum 


Microengenho 


1 Brasii 


Apple 11 + 


TRS-80 Mod.lll 


Digitus 


DGT-100 


Spectrum 


Microengenho 


11 Brasii 


Apple Me 


TRS-80 Mod.lH 


Digitus 


DGT-1000 


Spectrum 


Spectrum ed 


Brasii 


Apple H + 


TRS-80 Mo<t.lll 


Kemltron 


NajaSOO 


Suporte 


Venus 11 


Brasll 


Apple 11 + 


TRS-80 Mod.lH 


Prologica 


CP-300 


Sycomig 


SICI 


Brasii 


Apple 11 + 


TRS 80 Mod.lH 


Prologica 


CP-500 


Sysdata 


Sysdata III 


Brasll 


TRS-BO Mod.lli 


TRS 80 Mod.lH 


Sysdata 


Sy$daialll 


Sysdata 


Sysdata IV 


Brasii 


TRS-80 Mod.lV 


TFtS-80 Mod.lli 


Sysdata 


Sysdata Jr. 


Sysdata 


Sysdata Jr. 


Brasii 


TRS-BO Mod.lll 


TflS80Mod.IV 


Multix 


MX-Compacto 


Timex 


Timex 1000 


USA 


Sinclair ZX-81 


TRS-80 Mod.lV 


Sysdata 


Sysdata IV 


Timex 


Timex 1600 


USA 


Sinclair ZX-81 


TflS-Color 


Codlmex 


CS-6508 


Timex 


Timex 2000 


USA 


Sinclair Spectrum 


TRS-Color 


Dynacom 


MX-1600 


Unitron 


APH 


Brasii 


Apple 11 + 


TRS-Color 


LZ 


Color 64 


Victor do Brasll 


Elppa 11 Plus 


Brasll 


Apple 11 + 


TRS-Color 


Microdigital 


TKS-800 


Victor do Brasii 


Elppa Jr. 


Brasll 


Apple 11 + 


TRS-Color 

w 


Prologica 

■ m 


CP-400 


Video Genie 


Video Genie 1 


USA 


TRS-ao Mod. 1 


INPUT foi especialmente projetado para 


^ 


-y 


^ 


h!!<i 


,1 


microcomputadores compatlveis com as sete principals ^^J Sinclair zx-si 


H-H TRS-80 L 


^ 1 TK 2000 


flhrimx 




linhas existentes no mercado. 

Os blocos de texlos e listagens de programas aplicados ^^^ 






Stuntto emblefiM ftir seguido de uma 
m», entSo lanto ■> teulo como as 


I - 


—r- 


.apeoas a determinadas linhas de micros podem ser 
ioentificados por meio dos seguintes sfmbolos: 


^mm 


■ ■ 


m 


progTMtas que u 
espklncos pira i 


sesuem passim a ser 
rmna indlcada. . 


MHMI Spectrum 


■Ui TRS-Color L 


■LI Apple II 



PROGRAMACAO DE JOGOS 

Para chegar ao ouro, voce precisar^ fazer muitas pesquisas e escavagoes. 
Dinamize seu trabalho, recorrendo aos grdficos. 

PROGRAMACAO BASIC 

Aprofunde seus conheciment'os sobre arquivos de dados 
e veja como transferir informagoes de um programa para outre. 

PROGRAMACAO BASIC 

Agora que vocS j^ conhece os segredos da perspective, desenhe as mais diversas 

ftguras flutuando no espapo. 



OtCOIAPVJiAOOttS 




